#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

$mech->get("http://perlmonks.net");

my $headers = $mech->response->headers->as_string;