Ping mit Perl?

[Helmut]

Hallo zusammen,

in einer Domäne muss ich mit Perl eine Liste von Servern
anpingen und anschliessend Servernamen und Rückmeldezeit
ausgeben.

Das ist ein teil des Skrites:

foreach $Server (@Serverlist) {
                &setPing;
                if($p->ping($Server)==1)
                        {
                             print "$Server ist erreichbar";

....
                ....

sub setPing
 {
 $p = Net::Ping->new('icmp',2);
 }

Irgendwie bekomme ich es aber nicht hin. Es kommt nur die Meldung,
dass die Kiste nicht erreichbar ist.

Habt Ihr einen Tip, wie man mit Perl Server anpingen und einfach die Rückmeldezeit ausgeben kann.

Danke

Helmut

[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