my $url=<STDIN>;

my $req=HTTP::Request->new(GET=>$url);
my $ua=LWP::UserAgent->new();
$ua->timeout(15);
my $response=$ua->request($req);

##</code><code>##

#!/usr/bin/perl
use LWP::Simple;

my $url=<STDIN>;
my $resul=get $url;