Ping mit Perl?

[AndreasN]

Holla,

ich hab das mal so gelöst gehabt:

my $p = Net::Ping->new('icmp');
print "$host ist erreichbar!\n" if $p->ping($host);

Hoffe das hilft Dir weiter.
MfG
AndreasN