#!/usr/bin/perl -w

use strict 'subs';
use LWP::UserAgent;

BEGIN { $ENV{PATH} = '/usr/bin:/bin' }
require LWP::UserAgent;

$URL = "http://localhost/Test.asp";

print "Posting to the page '$URL'.\n";

($returnedPage) = DoPost ($URL);

print "Dispaying POSTed results:\n";
print "="x72."\n$returnedPage\n"."="x72."\n";

exit;

sub DoPost {
  local ($url) = @_;

  use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  
  my $browserType = "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)";
  my $httpReferer = "http://www.PerlMonks.org";
  
  my $userAgent = new LWP::UserAgent;
  $userAgent->agent("$browserType "); 
  
  my $request = POST "$url", 
    [ 
      Value1 => 'Some value for 1', 
      Value2 => 'My value 2 result', 
      Value3 => 'My value 3'
    ];
  $request->referer("$httpReferer");

  # Post the request to the server
  my $response = $userAgent->request($request)->as_string;

  return ($response);
}