Select Code to Download

#!/usr/bin/perl -w

...
     getprint "http://132.163.4.101:13 \n" ;
     print "E---------------------------\n" ;
}

P---------------------------

...

52138 01-08-17 22:08:06 50 0 0 404.0 UTC(NIST) * 
T---------------------------

Reply from XXX.XXX.XXX.XXX: bytes=32 time<10ms TTL=63

...
52138 01-08-17 22:08:06 50 0 0 404.0 UTC(NIST) * 

-------------------------------------------------------