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

use strict;

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $req = POST 'http://www.usps.com/cgi-bin/zip4/zip4inq2',
               [
                 'Firm' => '',
                 'Urbanization' => '',
                 'Delivery Address' => '3601 Fallstone Court',
                 'City' => '',
                 'State' => '',
                 'Zip Code' => '20744',
                 'Submit' => 'Process'
               ];

my $resp = $ua->request($req);

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

##</code><code>##

Problem

HTTP/1.0 302 (Found) Not Allowed
Location: http://148.129.65.3:80/fwauthredirect148.129.65.9id0000308902

Content-Length: 120
Content-Type: text/html
Client-Date: Wed, 24 Apr 2002 17:36:41 GMT
Client-Peer: 56.0.78.101:80

Your request is being redirected to :<a href="http://148.129.65.3:80/fwauthredirect148.129.65.9id000308902">here</a>.