• LWP::UserAgent
• HTTP::Request::Common
• HTTP::Cookies

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

sub CreateSession{ ##Takes Ref to user agent object
  my ($ua) = @_;

    $$ua->cookie_jar(HTTP::Cookies->new(file => "<FILEPATH>",
                                   autosave => 1));
    $$ua->proxy(http => '<PROXYINFO - OPTIONAL>');
    $$ua->timeout(300);
   #Use some basic Authentication
    my $req = POST 'https://<SOME SITE>/login.cgi',
              [cdsid=>'<USERID>', pw=>'<PASSWORD>',back=>'<BACK>'];

    $req->proxy_authorization_basic('<PROXY USERID>, <PROXY PASS>);
    my $res = $$ua->request($req);
 
    unless ($res->is_success) {
        print "Login Failed: : ". $res->status_line .  "\n";
    }

   #get the next page
   $req = POST 'https://<NEXT PAGE>/main1.cgi';
   $res = $$ua->request($req); 

   unless ($res->is_success) {
      print "Main Page Failed: : ". $res->status_line .  "\n";
   }
   return 1;

}
[download]

C-.

I really need to do a column on that. {grin}

-- Randal L. Schwartz, Perl hacker