#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';

use LWP::Debug qw(+);
use WWW::Mechanize;
use Data::Dumper;

my $polk_url      = 'https://ftp.polk.com';

my $mech = WWW::Mechanize->new(agent => 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.16) Gecko/20080702 Firefox/2.0.0.16');
$mech->add_header(
    'User-Agent' => 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.16) Gecko/20080702 Firefox/2.0.0.16',
    'Accept'     => '*/*',
);

my $r = $mech->get($polk_url);

print $r->status_line;
print $r->content;