#!/usr/bin/perl -w -T

use strict;
use WWW::Mechanize;

my $url = "http://localhost";

my $mech = WWW::Mechanize->new();
$mech->get($url);
my $resp = $mech->response();
print $resp->content."\n";