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

##</code><code>##

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