Muloscan.pl is a simple perl scanner that uses IO::Socket to check to see if some well known ports are open.