«Got a nice WWW::Mechanize script...»

Ok, yet another answer containing NULL code - not good, but: i don't know anything about WWW::Mechanize.

And i don't know anything about that «nice script».

Perhaps it would be better you post that «nice script»...?

Regards, Karl

#!/usr/bin/perl
use CSV;
use WWW::Mechanize;

my %OPTS = @LWP::Protocol::http::EXTRA_SOCK_OPTS; 
$OPTS{MaxLineLength} = 16384; # Or however large is needed... 
@LWP::Protocol::http::EXTRA_SOCK_OPTS = %OPTS; 

my $infile = $ARGV[0];
if (! -r $infile) 
{
    die "Can't read input $infile\n";
}

# Start Mech and get it ready
my $startPage = "https://xxxx.org/account/logon.jsp";

my $mech = WWW::Mechanize->new( cookie_jar => {},activate => 0,autoclo
+se => 1,autodie =>0 );
$mech->get( $startPage ); 


$mech->post("https://xxxx.org//onerequest.jsp" ,
    'whatToDo' => "add",
    'whereFrom' => "requestframe.jsp",
    'whereTo' => "onerequest.jsp",
    );

sleep(2);

print "Content length: " . $mech->response->header( 'Content-Length' )
+ . "\n";

$content = $mech->content();
[download]