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