Select Code to Download

$mech->get( $TLKAUDITSURL );
print $mech->content();

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
...
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );

$mech->get( $TLKAUDITSURL, ':content_file' => $TMPAUDITSLOG );
open( FH, '<', $TMPAUDITSLOG );
...
    chomp $line;
    print $line . "\n";
}

                 'handlers' => {
                                 'response_done' => [
...
                                                      }
                                                    ]
                               },