HTTPortscan 0.01

Here is a simple script I made that when you give it an IP address it scans port 80, and tells you if the port is open or closed.

Just copy the source into your favourite editor and away you go.

#!/usr/bin/perl
#httportscan.pl
#Simple port scanner

use IO::Socket;

$sock = IO::Socket::INET->new("$ARGV[0]:80");

if ($sock) {
print "Port 80 is open \n";
}