#!/usr/bin/perl $|=1; print "Content-type:text/html\n\n"; $dest = "www.io.com"; print <Ping $dest

Ping $dest

EndHTML

system("ping","-c", "15", $dest);

print <




EndHTML2