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