Select Code to Download

use strict;
use warnings;
...
$p->{'port_num'} = $port;
print "The service on $host port $port is ",
        ($p->ping($host) ? "up" : "down"), ".\n";