use strict;
use warnings;
use LWP::UserAgent;
my $url = 'http://cpan.org/';
# open( OUT, ">response.txt" ) or die( "Cannot open OUT file: $!" );
my $agent = new LWP::UserAgent();
my $request = new HTTP::Request('GET' => $url);
my $response = $agent > request($request);
if ( $response>is_success() )
{
print( OUT $response>content() );
}
else {
print( OUT "Error: " . $response>status_line() . "\n" );
}
Any help is appreciated.......
