...
my $pdf_data = $mech->content_as_pdf( format => 'A0' );
open(my $fh, '>:raw', 'the.pdf') or die $!;
print $fh $pdf_data;
close $fh;
`pdftotext 'the.pdf'`;