Select Code to Download

...
my $pdf_data = $mech->content_as_pdf( format => 'A0' );
...
print $fh $pdf_data;
close $fh;
`pdftotext 'the.pdf'`;