#!/usr/local/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout);
use lib qw(/usr/lib/perl5/vendor_perl/5.8.6/LWP /usr/lib/perl5/vendor_perl/5.8.6
/ /usr/lib/perl5/vendor_perl/5.8.6/LWP/UserAgent.pm);
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent('Mozilla/5.0');


my $current_page = "http://www.perlmonks.org";

my $response = $ua->get($current_page);
my $data = $response->content if($response->is_success) or die "not successful $!\n";

if($data){
  print "page: $current_page\n$data\ndone", length($data);
}
else
  {
    print "no data\n";
  }