#!/usr/bin/perl

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

my $host = "127.0.0.1";   # IP oder Host
my $p = Net::Ping->new();

print "Unable to reach $host!" unless($p->ping($host, 1));
# 1 Sekunde Timeout

exit;