my $ua = new LWP::UserAgent;
  $ua->agent("myagent");
 
 
my $url = $html;
my $request = new HTTP::Request('GET', $ARGV[0]);
my $response = HTTP::Tiny->new->get($url);


my $response = $ua->request($request);
if ($response->is_success) {
     print $response->content;
} else {
     print $response->error_as_HTML;
}