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

##</code><code>##

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 '_rc' => 200,
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'client-response-num' => 1,
                                        'last-modified' => 'Tue, 24 May 2011 06:50:00 GMT',
                                        'accept-ranges' => 'bytes',
                                        'date' => 'Tue, 24 May 2011 07:29:55 GMT',
                                        'client-peer' => '10.192.39.90:80',
                                        'content-length' => '21097062',
                                        'client-date' => 'Tue, 24 May 2011 07:29:57 GMT',
                                        'etag' => '"aa-141ea66-4a3ffff2d7600"',
                                        'content-type' => 'text/plain',
                                        'server' => 'Apache/2.2.15 (Unix) PHP/5.3.2'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'OK',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'http://tlk/logs/audits.log')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'WWW-Mechanize/1.68',
                                                               'accept-encoding' => 'gzip',
                                                               'referer' => 'http://tlk/logs/audits.log'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'GET',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );


##</code><code>##

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

##</code><code>##

                 'handlers' => {
                                 'response_done' => [
                                                      {
                                                        'callback' => sub { "DUMMY" }
                                                      }
                                                    ]
                               },