#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;

# Tells me result of $ua->request
sub tell_me {
	my $op = shift @_;
    if ($op->is_success) {
        print "Connection OK!";
    } else {
        print $op->status_line . "\n";
    }
}
#important variables
my $document_url = shift;
my $login_url 	= 'https://www2.lib.purdue.edu:2443/login';
my $pass 	= shift;
my $user 	= shift;

# Set up LWP browser, set up temporary and empty cookie jar
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
$ua->cookie_jar( {} );
  
# POST the username and password ,  and (hopefully) store resultant session cookie
my $req = $ua->request(POST $login_url, [user => $user, pass => $pass])	;
tell_me($req);

# GET the document I want
$req = $ua->request(GET $document_url,
    ':content_file' => $file_name);
tell_me($req);

exit 0;