O monks, I beseech thee: Is this not the proper code for
1. Storing a session cookie based on login/pass, then
2. fetching a pdf?
Also, I have SSL properly installed.

#!/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 se
+ssion 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;
[download]