#!/usr/bin/perl -w

use strict;
use Net::Ping;

my $host = "127.0.0.1";
my $ping=Net::Ping->new("icmp");
if ($ping->ping($host,2)){
    print "$host is alive";
}else{ print "$host unreachable" }

##</code><code>##

#!/usr/bin/perl -w

use strict;

checkup();



sub checkup {
my $host = "209.94.100.100";
my $packloss = `ping -c 1 -s 1 $host | grep loss | awk '{print \$7}'`;
   $packloss = substr($packloss,0,length($packloss) -1);


if ($packloss ne "100%") {
print "$host is up with $packloss packet loss\n";
}else {
        print "$host is down with $packloss packet loss\n";
}