#!/usr/bin/perl -w

use strict;
use LWP;

my $site0 = "http://mysite.com/
my $site = "https://login.mysite.com/dir/auth";

my @netscape_headers = (  # Set headers to look like Netscape
    'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
    'Accept-Language' => 'en-US',
    'Accept-Charset' => 'iso-8859-1,*,utf-8',
    'Accept-Encoding'=> 'gzip',
    'Accept' => "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*",
);

my $browser = LWP::UserAgent->new();   # Create virtual browser
$browser->cookie_jar( {} );            # Enable cookies

my $response = $browser->get($site0, @netscape_headers);
die "Error: ", $response->status_line
 unless $response->is_success;

my $response = $browser->post(
 $site,
 [
   "pRedirect" => "",
   "fRedirect" => "",
   "SafeWordUser" => "username"
 ]
);
die "Error: ", $response->status_line
 unless $response->is_success;

print $response->content();

$response = $browser->post(
 $site,
  [
   "pRedirect" => "",
   "fRedirect" => "",
   "SafeWordPassword" => "password"
 ]
);
die "Error: ", $response->status_line
 unless $response->is_success;

print $response->content();