#!/usr/bin/perl --
use strict;
use warnings;
use WWW::Mechanize;
my $url = 'http://example.com';
my $ua  = WWW::Mechanize->new(
    qw/
      max_size  1
      autocheck 1
      show_progress 1
      /
);
eval { $ua->head($url); 1 } or $ua->get($url);
print $ua->dump_headers;
__END__