Select Code to Download

#!/usr/bin/perl
use warnings;
...
        print "$mode ping reply on port $port\n" if $ping->ping($host)
+;
    }
}

tcp Socket 127.0.0.1:80 opened
tcp Socket 127.0.0.1:443 opened
...
tcp ping reply on port 80
Done tcp test
Done