Select Code to Download

for(@PORTS){
($KEY,$VAL)=split(/:/);
...
        $CONNTIME=$VAL if $KEY =~ /Connection time/;
        $CONNEDHOST=$VAL if $KEY =~ /Connected host/;
...

if ($KEY =~ /Host/) { $HOST = $VAL; }
elsif ($KEY =~ /Connection time/) { $CONNTIME = $VAL; }
elsif ($KEY =~ /Connected host/) { ... }
...

splice(@PORTS, 0, 3);