Select Code to Download

$browser->follow_link( text_regex => qr/Download as TAB/i );
print $browser->content();  # prints TAB delimited file to STDOUT

$browser->follow_link( text_regex => qr/Download as TAB/i );
if ( my $filename = $browser->res->filename )
...
    print $fh $browser->content;
    close $fh;
}

#!env perl
use strict;
...
    print $fh $browser->content;
    close $fh;
}