#!/usr/bin/perl

use 5.010;
use Net::Ping;

$addr = <stdin>;
chomp $addr;    

$p = Net::Ping->new("icmp");
   if( $p->ping($addr)){
        print "$addr is alive";
}
else {
        print "$addr appear to be down";
    }
    $p->close();