#!/bin/perl -w -s
#https.pl

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


my $ua = LWP::UserAgent->new;
$ua->cookie_jar( HTTP::Cookies->new );
   
print "get  - ";
my $rsp = $ua->request( GET  'http://www.web-com.com/search.htm' );
if ($rsp->is_success) {
   print "Succeeded\n";
   print $rsp->as_string, "\n\n" if ($v);
}
else {
   print "Failed: ", $rsp->status-line, "\n";
}


print "post - ";
$rsp = $ua->request( POST  'http://www.web-com.com/cgi-bin/zipcd2.cgi',
   [ 'zipcd' => '95005', 'Submit' => 'Submit' ]
);
if ($rsp->is_success) {
   print "Succeeded\n";
   print $rsp->as_string, "\n\n" if ($v);
}
else {
   print "Failed: ", $rsp->status_line, "\n";
}