use Compress::Zlib;
...
$mech->get( $pdf_url );
my $compressed = Compress::Zlib::memGzip( $mech->content );