Select Code to Download

#!perl
# Automated navigation through web pages
...
    close PAGE;
    die 'Get failed: "'.$a->res->status_line."\" for\n".$testpage."\n 
+or ".$a->base()."\n";
};

C:\Documents and Settings\johnsro\My Documents\Perl>perl myfinint2.pl
LWP::UserAgent::new: ()
...
Get failed: "501 Not Implemented" for
http://myprodportalv2.unocal.com:7778/portal/page?_pageid=33,30917,33_
+30962&_dad=puno2o&_schema=PORTAL_PUNO2O
 or http://myprodportalv2.unocal.com:7778/portal/page?_pageid=33,30917
+,33_30962&_dad=puno2o&_schema=PORTAL_PUNO2O

$VAR1 = bless( {
                 'req' => bless( {
...
                 'proxy' => {},
                 'max_size' => undef
               }, 'WWW::Mechanize' );