Help for this page

Select Code to Download

Select or download this

C:\Perl\eg\Scripts>perl pingythingy.pl
The Unsupported function alarm function is unimplemented at C:/Perl/li
+b/Net/Ping
.pm line 308.

Select or download this

use Net::Ping;
my $hostname = '10.17.1.60';
$timeout = 10;
print "Printer is up\n" if pingecho($hostname, $timeout);