Select Code to Download

#!/usr/bin/perl -w

...
close $sock || die "close: $!, stopped";

exit 0;

me@mybox:~/ajp_ping
$ time ./ajp_ping.pl localhost:8009
...
real    0m0.028s
user    0m0.015s
sys     0m0.013s