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

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