in reply to ping with perl

If you remove OUTFILE from the print statements, do you get the desired output?

In Section Seekers of Perl Wisdom