use strict;
use LWP::UserAgent;
use Open::SSLeay;
use HTTP::Request::Common;

# ASP FORM SOURCE CODE 
# <form name=login method=post action="mainin.asp">
#    <font size="2">E-Mail Address :</font>
#    <input type=text name="login" size=20 maxlength=60 value="" class
+=inputtext>
#    
#    <font size="2">Password :</font>
#    <input type="password" name="passwd" size=20 maxlength=60 class=i
+nputtext>
# <input type="submit" name="action" value="Log In" class="inputbutton
+">
# </form>

# I NEED TO LOGIN
  my $ua = LWP::UserAgent->new;
  my $ua->request(POST 'https://domain/sec/mainin.asp?login', [login =
+> foo@bar.com, passwd => snafu]);

# HOW DO I RECURSIVELY FIND ALL LINKS, OR USE AN ARRAY?
# ANY ADVICE ON WHERE TO START TO WRITE THIS CODE?
  @PAGE = 

# HOW ABOUT MORE THAN ONE BOOK - I HAVEN'T A CLUE.
  @BOOK = 
 
# AFTER LOGIN SUCCESS, I NEED TO 'GET' THE BOOK, APPENDING EACH PAGE T
+O FILE FETCHEDBOOK.TXT 
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET => 'http://domain/main.asp?bookname
+=@BOOK&page=@PAGE');
  my $res = $ua->request($req,>>"FETCHEDBOOK.TXT");
  if ($res->is_success) {
      print $res->FETCHEDBOOK.TXT;
  } else {
      print "Failed: ", $res->status_line, "\n";
  }
[download]