#!/usr/bin/env perl

use Net::Ping;

$url = <>;
chomp $url;
$p = Net::Ping->new('icmp');
if ($p->ping($url)) {
    print "working";
}
else {print "not working"; }

##</code><code>##

~$ cat text
yahoo.com