use strict;
use warnings;
use Net::Ping;

my &#36remotehost = "ir.gend.was";

while(1){
    my &#36p = Net::Ping->new("icmp");
    if(&#36p->ping(&#36remotehost,1)) {
        print "erreichbar\n";
    }
    else{
        print "nicht erreichbar\n";
    }
    sleep(30);
    &#36p->close();
}