#! perl
#
# ping60.pl Daniel Brockman 20040315 pinger for windows 98
#

$host=$ARGV[0];
$count=$ARGV[1];
$interval=$ARGV[2];

if ($host eq "" or $host eq "-h") {
	print "Usage: ping60.pl {hostname|ip-addr} [ count [interval-in-seconds]]\n";
	exit;
}
if ($count==0) {
	$count=1000;
}
if ($interval==0) {
	$interval=60;
}


for ($i=1;$i<=$count;$i++){

  print "\n-----ping $i of $count--------\n"
	  ."\npinging host $host $count time(s) at $interval-second intervals...\n" ;

  system("ping","-n","1","-w","30000",
  	"$host");

	sleep($interval);

}