The lwp cookbook doc http://www.linpro.no/lwp/libwww-perl/lwpcook.pod has a generic http client that allows one to assemble a post url and collect the returned html for later perusal.

Richard

You also might want to check out Web Client Programming with Perl. It's out of print, but O'Reilly has made it available for free in its entirety via the O'Reilly Open Books Project.

Specifically, chapters 5 and 6 deal with the LWP module.

Cheers!

Brent

#!/usr/bin/perl

open(OUT, ">/tmp/cayman.html" || die "can't open output");

use LWP::UserAgent;

$ua = LWP::UserAgent->new;

$req = HTTP::Request->new(GET => "http://192.168.1.254:8080/shell/show
++ip+interfaces");
$req->authorization_basic("userid", "password");

$response = $ua->request($req);
$content  = $response->content();

print OUT $content;
close(OUT) || die "can't close output cayman.html";
[download]

http_post.pl

#!/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);
}
[download]

Test.asp

This page writes out POSTed FORM values:

<P>
<%
Call WriteQueryStringContents()

Sub WriteQueryStringContents
    Dim strItem
    
    Response.Write CHR(10) & "<P>" & CHR(10)
    Response.Write "QueryString contents:" & CHR(10)
    For Each strItem In Request.QueryString 
        Response.Write "<LI>" & strItem & ": "
        Response.Write Request.QueryString(strItem) & "</LI>" & CHR(10
+)
    Next
    
    Response.Write CHR(10) & "<P>" & CHR(10)
    Response.Write "Form contents:" & CHR(10)
    For Each strItem In Request.Form 
        Response.Write "<LI>" & strItem & ": "
        Response.Write Request.Form(strItem) & "</LI>" & CHR(10)
    Next
    
End Sub
%>
</P>
[download]

Example

E:\Personal>perl http_post.pl
Posting to the page 'http://localhost/Test.asp'.
Dispaying POSTed results:
======================================================================
+==
HTTP/1.1 200 OK
Cache-Control: private
Connection: Keep-Alive
Date: Tue, 20 Nov 2001 20:54:11 GMT
Server: Microsoft-IIS/5.0
Content-Length: 201
Content-Type: text/html
Client-Date: Tue, 20 Nov 2001 20:54:11 GMT
Client-Peer: 127.0.0.1:80
Set-Cookie: ASPSESSIONIDQGGGQNOK=LEDDBLNAMNEONOJLKHFDFANJ; path=/

This page writes out POSTed FORM values:

<P>

<P>
QueryString contents:

<P>
Form contents:
<LI>Value1: Some value for 1</LI>
<LI>Value2: My value 2 result</LI>
<LI>Value3: My value 3</LI>

</P>


======================================================================
+==
[download]