#Ping starten - Neues Net-Ping Objekt + Millisekunden zählen
    my $p = Net::Ping->new('tcp'); unless (defined $p) { die "can't create Net::Ping object $!";}

	
	 # High precision syntax (requires Time::HiRes)
    $p->hires();
    ($ret, $duration, $ip) = $p->ping($host1);
    if ($ret)
    {
    	 printf("ON : %.2f ms\n", 1000*$duration);
    } else {
  	  print "OFF\n";
    }