#!/usr/bin/perl
use warnings;
use strict;
use LWP;
my $alvo;
chomp($alvo=<STDIN>);
my $url="$alvo";
my $lwp=LWP::UserAgent->new;
my $resultado=$lwp->get ($url);
my @res=$resultado->content;
foreach(@res){
   print "$_";
}