#!c:/Perl/bin/perl.exe use Net::Ping; use strict; use warnings; my $host="84.45.66.70"; # Dedicated 2 #my $host="217.205.137.26"; Dedicated 1 my $p=Net::Ping->new("tcp", 5); my $result; if ($p->ping($host)) { $result = "On-line.\n"; } else { $result = "Off-line.\n"; } $p->close(); print <

The Dedicated 2 SERVER $host is $result

EOF __END__