use strict;
use warnings;

use Net::Ping;

my $url = <>;

print ":$url:\n";
chomp($url);
print ":$url:\n";

my $p = Net::Ping->new();

if ( $p->ping($url) ) {
    print "working\n";
}
else {
    print "not working\n"; 
}

##</code><code>##

Output:

:www.bbc.co.uk
:
:www.bbc.co.uk:
working