501 (Not Implemented) Protocol scheme 'https' is not supported Client-Date: Fri, 24 May 2002 16:56:33 GMT 

##</code><code>##

#!/usr/lib/perl

use strict;
use warnings;

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

#need to get sessionid so it is nice and new
my $page = get 'http://www.sitedomain.com/Login.jsp';
$page =~ /jid=(\w+)/;
my $jid = $1;

my $ua = LWP::UserAgent->new;

$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));

push @{ $ua->requests_redirectable }, 'POST';

my $request = $ua->request(POST "http://www.sitedomain.com/Login.jsp",
                            {
                             username => 'abc123',
                             password => '123abc',
                             'Submit' => 'Sign in',
                            });
				
print $request->is_success ? "worked\n" : "failed\n";
print $b = $request->as_string;