Select Code to Download

# remove first three lines
shift @ports for 1 .. 3;
...
Error code, 10061
Connected host, -
Host, localhost

foreach my $key ( keys %value_of ) {
    print "$key, $value_of{ $key }\n";
}