Select Code to Download

 #!/usr/bin/perl
 
...
    use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();
    $mech->cookie_jar(HTTP::Cookies->new());

sub GETURL {
    $start_time = time;
...
    else { print OUTDATA " ERROR\n";}
    sleep (1);
    }