#!/opt/gnu-irix/bin/perl

use strict;

use HTTP::Request::Common;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;

#my $formurl = 'http://www.usps.com:80/cgi-bin/zip4/zip4inq2';
my $formurl = 
'http://148.129.65.3:80/fwauthredirect148.129.65.9id0003869786';
my $formdata = [
  'Firm' => '',
  'Urbanization' => '',
  'Delivery Address' => '100 Southland Vlg',
  'City' => '',
  'State' => '',
  'Zip Code' => '36079-3044',
  'Submit' => 'Process'
];

print $formurl, "\n";
my $resp = $ua->request(POST $formurl, $formdata);

if ($resp->is_success())
{
  print $resp->content();
}
else
{
  print "Problem\n\n", $resp->as_string();
}