Perl test host port connectivity

host_ports.pl

#! perl -w

# test ports 80 and 1433 on given IP
# HTTP and SQL
# for new NAT addresses

use strict;
use IO::Socket::PortState qw(check_ports);

my $timeout = 10;

my %ports = (
	tcp => {
		80 => {}, 
		1433 => {},
		}
	);

open(HOSTS, '<', $ARGV[0] || '/etc/hosts');
my @ips = <HOSTS>;
close HOSTS;

for my $ip (@ips) {
	chomp $ip;
	my $host_hr = check_ports($ip, $timeout, \%ports);
	for my $port (sort {$a <=> $b} keys %{$host_hr->{tcp}}) {
		my $stat = $host_hr->{tcp}{$port}{open} ? 'success' : 'failure';
		print "$ip - $port - $stat\n";
	}
}