Help for this page
# 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"; }