#!/usr/bin/perl -w -T
use strict;
use WWW::Mechanize;
my $url = "http://localhost";
my $mech = WWW::Mechanize->new();
my $response = $mech->get($url);
print $response->content."\n";