Select Code to Download

use strict;
   use warnings;
...
         print "$proto $_ is not open ($porthash{$proto}->{$_}->{name}
+) if !$porthash{$proto}->{$_}->{open};
      }
   }

#!/usr/bin/perl -w

...
  chomp;
  system("telnet  $_");  ### get return status here??
}