Select Code to Download

#!/usr/bin/perl
use IO::Socket;
...

print "Ping result =>: ",scalar(<$sock>);
close ($sock);