#!/usr/bin/perl

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

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

my $ua = LWP::UserAgent->new();

my $key = q{dDwxNTY2ODAzNzEwO3Q8O2w8aTwwPjs+O2w8dDw7bDxpPDQ+O2k8Nj47aTw3PjtpPDk+O2k8MTE+O2k8MTM+O2k8MTU+O2k8MTc+O2k8MTk+O2k8MjE+Oz47bDx0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PDtsPGk8MjU+O2k8Mjk+Oz47bDx0PHQ8O3Q8aTwyMDE+O0A8QUZHSEFOSVNUQU47QUxCQU5JQTtBTEdFUklBO0FMTDtBTUVSSUNBTiBTQU1PQTtBTkRPUlJBO0FOR09MQTtBTkdVSUxMQTtBTlRJR1VBIEFORCBCQVJCVURBO0FSR0VOVElOQTtBUlVCQTtBVVNUUkFMSUE7QVVTVFJJQTtCQUhBTUFTO0JBSEFNQVMsIFRIRTtCQUhBTUFTLFRIRTtCQUhSQUlOO0JBTkdMQURFU0g7QkFSQkFET1M7QkVMQVJVUztCRUxHSVVNO0JFTElaRTtCRVJNVURBO0JPTElWSUE7Qk9UU1dBTkE7QlJBWklMO0JSSVRJU0ggSU5ESUFOIE9DRUFOIFRFUlJJVE9SWTtCVUxHQVJJQTtDQU1CT0RJQTtDQU1FUk9PTjtDQU5BREE7Q0FQRSBWRVJERTtDQVlNQU4gSVNMQU5EUztDSElMRTtDSElOQTtDT0xPTUJJQTtDT01PUk9TO0NPTkdPO0NPT0sgSVNMQU5EUztDT1NUQSBSSUNBO0NST0FUSUE7Q1VCQTtDWVBSVVM7Q1pFQ0ggUkVQVUJMSUM7REVOTUFSSztESklCT1VUSTtET01JTklDQTtET01JTklDQU4gUkVQVUJMSUM7RUNVQURPUjtFR1lQVDtFTCBTQUxWQURPUjtFUVVBVE9SSUFMIEdVSU5FQTtFU1RPTklBO0ZBTEtMQU5EIElTTEFORFMgKElTTEFTIE1BTFZJTjtGQVJPRSBJU0xBTkRTO0ZJSkk7RklOTEFORDtGUkFOQ0U7RlJFTkNIIFBPTFlORVNJQTtGUkVOQ0ggU09VVEhFUk4gQU5EIEFOVEFSQ1RJQyA7R0FCT047R0FNQklBLCBUSEU7R0VPUkdJQTtHRVJNQU5ZO0dIQU5BO0dJQlJBTFRBUjtHUkVFQ0U7R1JFRU5MQU5EO0dSRU5BREE7R1VBREVMT1VQRTtHVUFNO0dVQVRFTUFMQTtHVUlORUE7R1VZQU5BO0hBSVRJO0hPTkRVUkFTO0hPTkcgS09ORztIVU5HQVJZO0lDRUxBTkQ7SU07SU5ESUE7SU5ET05FU0lBO0lSQU47SVJBUTtJUkVMQU5EO0lTTEUgT0YgTUFOO0lTUkFFTDtJVEFMWTtKQU1BSUNBO0pBUEFOO0pPUkRBTjtLQVpBS0hTVEFOO0tFTllBO0tJUklCQVRJO0tPUkVBLCBSRVBVQkxJQyBPRjtLVVdBSVQ7TEFPUztMQVRWSUE7TEVCQU5PTjtMSUJFUklBO0xJQllBO0xJVEhVQU5JQTtMVVhFTUJPVVJHO01BQ0VET05JQSwgVEhFIEZPUk1FUiBZVUdPU0xBVjtNQURBR0FTQ0FSO01BTEFXSTtNQUxBWVNJQTtNQUxESVZFUztNQUxUQTtNQVJTSEFMTCBJU0xBTkRTO01BUlRJTklRVUU7TUFVUklUSVVTO01FWElDTztNSUNST05FU0lBLCBGRURFUkFURUQgU1RBVEVTIE87TUlOSVNURVJPIERFSSBUUkFOU1BPUlRJIEUgREVMO01PTERPVkE7TU9OQUNPO01PTkdPTElBO01PUk9DQ087TVlBTk1BUiAoQlVSTUEpO05BVVJVO05FUEFMO05FVEhFUkxBTkRTO05FVEhFUkxBTkRTIEFOVElMTEVTO05FVyBDQUxFRE9OSUE7TkVXIFpFQUxBTkQ7TklDQVJBR1VBO05JR0VSSUE7TklVRTtOT1JUSCBLT1JFQTtOT1JUSEVSTiBNQVJJQU5BIElTTEFORFM7Tk9SV0FZO05RO09NQU47UEFLSVNUQU47UEFMQVU7UEFOQU1BO1BBUFVBIE5FVyBHVUlORUE7UEFSQUdVQVk7UEVSVTtQSElMSVBQSU5FUztQT0xBTkQ7UE9SVFVHQUw7UFI7UFVFUlRPIFJJQ087UUFUQVI7Uk9NQU5JQTtSVVNTSUE7UlVTU0lBTiBGRURFUkFUSU9OO1NBSU5UIEtJVFRTIEFORCBORVZJUztTQUlOVCBMVUNJQTtTQUlOVCBQSUVSUkUgQU5EIE1JUVVFTE9OO1NBSU5UIFZJTkNFTlQgQU5EIFRIRSBHUkVOQURJTjtTQU1PQTtTQU8gVE9NRSBBTkQgUFJJTkNJUEU7U0FVREkgQVJBQklBO1NFTkVHQUw7U0VSQklBIEFORCBNT05URU5FR1JPO1NFWUNIRUxMRVM7U0lFUlJBIExFT05FO1NJTkdBUE9SRTtTTE9WQUtJQTtTTE9WRU5JQTtTT0xPTU9OIElTTEFORFM7U09VVEggQUZSSUNBO1NPVVRIIEtPUkVBO1NPVklFVCBVTklPTjtTUEFJTjtTUkkgTEFOS0E7U1VEQU47U1VSSU5BTUU7U1dBWklMQU5EO1NXRURFTjtTV0lUWkVSTEFORDtTWVJJQTtUQUlXQU47VEFJV0FOLCBQUk9WSU5DRSBPRiBDSElOQTtUQU5aQU5JQTtUSEFJTEFORDtUT05HQTtUUklOSURBRCBBTkQgVE9CQUdPO1RSVVNUIFRFUlJJVE9SWSBPRiBUSEUgUEFDSUZJQztUVU5JU0lBO1RVUktFWTtUVVJLTUVOSVNUQU47VFVSS1MgQU5EIENBSUNPUyBJU0xBTkRTO1RVVkFMVTtVS1JBSU5FO1VOSVRFRCBBUkFCIEVNSVJBVEVTO1VOSVRFRCBLSU5HRE9NO1VOSVRFRCBTVEFURVM7VVJVR1VBWTtWQU5VQVRVO1ZFTkVaVUVMQTtWSTtWSUVUTkFNO1ZJUkdJTiBJU0xBTkRTLCBBTUVSSUNBTjtWSVJHSU4gSVNMQU5EUywgQlJJVElTSDtXQUxMSVMgQU5EIEZVVFVOQTtXRVNURVJOIFNBSEFSQTtaSU1CQUJXRTs+O0A8QUZHSEFOSVNUQU47QUxCQU5JQTtBTEdFUklBO0FMTDtBTUVSSUNBTiBTQU1PQTtBTkRPUlJBO0FOR09MQTtBTkdVSUxMQTtBTlRJR1VBIEFORCBCQVJCVURBO0FSR0VOVElOQTtBUlVCQTtBVVNUUkFMSUE7QVVTVFJJQTtCQUhBTUFTO0JBSEFNQVMsIFRIRTtCQUhBTUFTLFRIRTtCQUhSQUlOO0JBTkdMQURFU0g7QkFSQkFET1M7QkVMQVJVUztCRUxHSVVNO0JFTElaRTtCRVJNVURBO0JPTElWSUE7Qk9UU1dBTkE7QlJBWklMO0JSSVRJU0ggSU5ESUFOIE9DRUFOIFRFUlJJVE9SWTtCVUxHQVJJQTtDQU1CT0RJQTtDQU1FUk9PTjtDQU5BREE7Q0FQRSBWRVJERTtDQVlNQU4gSVNMQU5EUztDSElMRTtDSElOQTtDT0xPTUJJQTtDT01PUk9TO0NPTkdPO0NPT0sgSVNMQU5EUztDT1NUQSBSSUNBO0NST0FUSUE7Q1VCQTtDWVBSVVM7Q1pFQ0ggUkVQVUJMSUM7REVOTUFSSztESklCT1VUSTtET01JTklDQTtET01JTklDQU4gUkVQVUJMSUM7RUNVQURPUjtFR1lQVDtFTCBTQUxWQURPUjtFUVVBVE9SSUFMIEdVSU5FQTtFU1RPTklBO0ZBTEtMQU5EIElTTEFORFMgKElTTEFTIE1BTFZJTjtGQVJPRSBJU0xBTkRTO0ZJSkk7RklOTEFORDtGUkFOQ0U7RlJFTkNIIFBPTFlORVNJQTtGUkVOQ0ggU09VVEhFUk4gQU5EIEFOVEFSQ1RJQyA7R0FCT047R0FNQklBLCBUSEU7R0VPUkdJQTtHRVJNQU5ZO0dIQU5BO0dJQlJBTFRBUjtHUkVFQ0U7R1JFRU5MQU5EO0dSRU5BREE7R1VBREVMT1VQRTtHVUFNO0dVQVRFTUFMQTtHVUlORUE7R1VZQU5BO0hBSVRJO0hPTkRVUkFTO0hPTkcgS09ORztIVU5HQVJZO0lDRUxBTkQ7SU07SU5ESUE7SU5ET05FU0lBO0lSQU47SVJBUTtJUkVMQU5EO0lTTEUgT0YgTUFOO0lTUkFFTDtJVEFMWTtKQU1BSUNBO0pBUEFOO0pPUkRBTjtLQVpBS0hTVEFOO0tFTllBO0tJUklCQVRJO0tPUkVBLCBSRVBVQkxJQyBPRjtLVVdBSVQ7TEFPUztMQVRWSUE7TEVCQU5PTjtMSUJFUklBO0xJQllBO0xJVEhVQU5JQTtMVVhFTUJPVVJHO01BQ0VET05JQSwgVEhFIEZPUk1FUiBZVUdPU0xBVjtNQURBR0FTQ0FSO01BTEFXSTtNQUxBWVNJQTtNQUxESVZFUztNQUxUQTtNQVJTSEFMTCBJU0xBTkRTO01BUlRJTklRVUU7TUFVUklUSVVTO01FWElDTztNSUNST05FU0lBLCBGRURFUkFURUQgU1RBVEVTIE87TUlOSVNURVJPIERFSSBUUkFOU1BPUlRJIEUgREVMO01PTERPVkE7TU9OQUNPO01PTkdPTElBO01PUk9DQ087TVlBTk1BUiAoQlVSTUEpO05BVVJVO05FUEFMO05FVEhFUkxBTkRTO05FVEhFUkxBTkRTIEFOVElMTEVTO05FVyBDQUxFRE9OSUE7TkVXIFpFQUxBTkQ7TklDQVJBR1VBO05JR0VSSUE7TklVRTtOT1JUSCBLT1JFQTtOT1JUSEVSTiBNQVJJQU5BIElTTEFORFM7Tk9SV0FZO05RO09NQU47UEFLSVNUQU47UEFMQVU7UEFOQU1BO1BBUFVBIE5FVyBHVUlORUE7UEFSQUdVQVk7UEVSVTtQSElMSVBQSU5FUztQT0xBTkQ7UE9SVFVHQUw7UFI7UFVFUlRPIFJJQ087UUFUQVI7Uk9NQU5JQTtSVVNTSUE7UlVTU0lBTiBGRURFUkFUSU9OO1NBSU5UIEtJVFRTIEFORCBORVZJUztTQUlOVCBMVUNJQTtTQUlOVCBQSUVSUkUgQU5EIE1JUVVFTE9OO1NBSU5UIFZJTkNFTlQgQU5EIFRIRSBHUkVOQURJTjtTQU1PQTtTQU8gVE9NRSBBTkQgUFJJTkNJUEU7U0FVREkgQVJBQklBO1NFTkVHQUw7U0VSQklBIEFORCBNT05URU5FR1JPO1NFWUNIRUxMRVM7U0lFUlJBIExFT05FO1NJTkdBUE9SRTtTTE9WQUtJQTtTTE9WRU5JQTtTT0xPTU9OIElTTEFORFM7U09VVEggQUZSSUNBO1NPVVRIIEtPUkVBO1NPVklFVCBVTklPTjtTUEFJTjtTUkkgTEFOS0E7U1VEQU47U1VSSU5BTUU7U1dBWklMQU5EO1NXRURFTjtTV0lUWkVSTEFORDtTWVJJQTtUQUlXQU47VEFJV0FOLCBQUk9WSU5DRSBPRiBDSElOQTtUQU5aQU5JQTtUSEFJTEFORDtUT05HQTtUUklOSURBRCBBTkQgVE9CQUdPO1RSVVNUIFRFUlJJVE9SWSBPRiBUSEUgUEFDSUZJQztUVU5JU0lBO1RVUktFWTtUVVJLTUVOSVNUQU47VFVSS1MgQU5EIENBSUNPUyBJU0xBTkRTO1RVVkFMVTtVS1JBSU5FO1VOSVRFRCBBUkFCIEVNSVJBVEVTO1VOSVRFRCBLSU5HRE9NO1VOSVRFRCBTVEFURVM7VVJVR1VBWTtWQU5VQVRVO1ZFTkVaVUVMQTtWSTtWSUVUTkFNO1ZJUkdJTiBJU0xBTkRTLCBBTUVSSUNBTjtWSVJHSU4gSVNMQU5EUywgQlJJVElTSDtXQUxMSVMgQU5EIEZVVFVOQTtXRVNURVJOIFNBSEFSQTtaSU1CQUJXRTs+Pjs+Ozs+O3Q8dDw7dDxpPDI0PjtAPEFMTDtDb21tZXJjaWFsIEZpc2hpbmcgVmVzc2VsO0Zpc2ggUHJvY2Vzc2luZyBWZXNzZWw7RnJlaWdodCBCYXJnZTtGcmVpZ2h0IFNoaXA7SW5kdXN0cmlhbCBWZXNzZWw7TW9iaWxlIE9mZnNob3JlIERyaWxsaW5nIFVuaXQ7T2Zmc2hvcmUgU3VwcGx5IFZlc3NlbDtPaWwgUmVjb3Zlcnk7UGFzc2VuZ2VyIChJbnNwZWN0ZWQpO1Bhc3NlbmdlciAoVW5pbnNwZWN0ZWQpO1Bhc3NlbmdlciBCYXJnZSAgKEluc3BlY3RlZCk7UGFzc2VuZ2VyIEJhcmdlICAoVW5pbnNwZWN0ZWQpO1B1YmxpYyBGcmVpZ2h0O1B1YmxpYyBUYW5rc2hpcC9CYXJnZTtQdWJsaWMgVmVzc2VsLCBVbmNsYXNzaWZpZWQ7UmVjcmVhdGlvbmFsO1Jlc2VhcmNoIFZlc3NlbDtTY2hvb2wgU2hpcDtUYW5rIEJhcmdlO1RhbmsgU2hpcDtUb3dpbmcgVmVzc2VsO1VuY2xhc3NpZmllZDtVbmtub3duOz47QDxBTEw7Q29tbWVyY2lhbCBGaXNoaW5nIFZlc3NlbDtGaXNoIFByb2Nlc3NpbmcgVmVzc2VsO0ZyZWlnaHQgQmFyZ2U7RnJlaWdodCBTaGlwO0luZHVzdHJpYWwgVmVzc2VsO01vYmlsZSBPZmZzaG9yZSBEcmlsbGluZyBVbml0O09mZnNob3JlIFN1cHBseSBWZXNzZWw7T2lsIFJlY292ZXJ5O1Bhc3NlbmdlciAoSW5zcGVjdGVkKTtQYXNzZW5nZXIgKFVuaW5zcGVjdGVkKTtQYXNzZW5nZXIgQmFyZ2UgIChJbnNwZWN0ZWQpO1Bhc3NlbmdlciBCYXJnZSAgKFVuaW5zcGVjdGVkKTtQdWJsaWMgRnJlaWdodDtQdWJsaWMgVGFua3NoaXAvQmFyZ2U7UHVibGljIFZlc3NlbCwgVW5jbGFzc2lmaWVkO1JlY3JlYXRpb25hbDtSZXNlYXJjaCBWZXNzZWw7U2Nob29sIFNoaXA7VGFuayBCYXJnZTtUYW5rIFNoaXA7VG93aW5nIFZlc3NlbDtVbmNsYXNzaWZpZWQ7VW5rbm93bjs+Pjs+Ozs+Oz4+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+Ozs+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+Ozs+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+O2w8aTwxPjs+O2w8dDxAMDw7Ozs7Ozs7Ozs7Pjs7Pjs+Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47PjtsPGk8MT47PjtsPHQ8QDA8Ozs7Ozs7Ozs7Oz47Oz47Pj47dDw7bDxpPDM+Oz47bDx0PHA8cDxsPFRleHQ7VG9vbFRpcDs+O2w8VHVlc2RheSwgU2VwdGVtYmVyIDA0LCAyMDA3O1R1ZXNkYXksIFNlcHRlbWJlciAwNCwgMjAwNzs+Pjs+Ozs+Oz4+Oz4+Oz4+O2w8Q2hlY2tCb3hPdXRTZXJ2aWNlOz4+wcUNJFMjG7GO+lT4LnLAL/zyK9c=};

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();

__END__