#!/usr/bin/perl -w

use strict;
use LWP;

my $site = "https://login.mysite.com/dir/auth";
my $site1 = "https://www.mysite.com/protected/dir/main.htm";

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->post(
 $site,
 [
   "pRedirect" => "",
   "fRedirect" => "",
   "User" => "username"
 ],@netscape_headers
);
die "Error: ", $response->status_line
 unless $response->is_success;


 $response = $browser->post(
 $site,
  [
   "pRedirect" => "",
   "fRedirect" => "",
   "Password" => "password"
 ],@netscape_headers
);

$response = $browser->get($site1, @netscape_headers);
print $response->content();