#!/usr/bin/perl

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;
use URI::Escape;

my $url = q{http://cgmix.uscg.mil/PSIX/VesselSearch.aspx};

my $ua = LWP::UserAgent->new();
$ua->cookie_jar( HTTP::Cookies->new(
    'file' => '/home/matt/cookies.txt',
));
my $safe_key = uri_escape($key);
my $req = POST $url,
Content_Type => 'form_data',
Content => [
        VesselName => 'FLINTHORN',
        VesselNumber => '',
        VesselCallSign => '',
        VesselHull => '',
        VesselYear => '',
        CheckBoxOutService => '',
        __VIEWSTATE => $safe_key,    ];
my $res = $ua->request($req);print $res->content();