#!/usr/local/bin/perl -w
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

if($res->is_success){
        print $res->is_success."\n";
        my @data = split '\n', $res->content;
        foreach my $line (@data){
                print $line."\n";
        }
}
else{

        my @data = split '\n', $res->content;
        print $res->status_line . "\n";
        print $res->as_string . "\n";
        my $err =  sprintf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E;
        print "Err: $err\n";
        print "\n\n\n\\n\n\n";
        for my $i(0 .. 256){
                $! = $i;
                $^E = $i;
                printf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E;

        }
}