use LWP; 		

my $useragentobj = new LWP::UserAgent;
my $requestobj = new HTTP::Request('GET', "http://www.petsits.com/");
my $responseobj = $useragentobj->request($requestobj);

print $responseobj->content;

exit;