my $mech = WWW::Mechanize->new();
my $response = $mech->get(URL);
 if ($response->is_success) {
        print $mech->content;
 }
 else {
     die $response->status_line;
 }