Select Code to Download

open HOSTS, '<', 'hostnames.txt' or die "Cant open hostnames.txt\n";

...
    check_ports($host,$timeout,\%porthash);
    # Do other processing stuff here
}

#!/usr/bin/perl -w
use strict;
...
}

close HOSTS;

Host - 1.2.3.4
22 - no
...
13720 - no
13782 - no
30032 - no