Home

Search this site:
 

Horshack’s
very
own site

 

This is Bavaria, Germany!
You will find links to Perl,
bootdisks for system administration,
a lot of Linux,
Windows administration
and some personal belongings.

Ping with Perl

This is an example how to use Net::Ping
my $ip = '193.174.2.154';
my $p = Net::Ping->new( "icmp", 1, 64 );
if ( $p->ping($ip) ) {
    print "$ip answered\n";
} else {
    print "$ip did not answer\n";
}
Impressum