use Apache::Tika;

my $tika = Apache::Tika->new();
open my $fh, '<:raw', 'x.pdf';
my $pdf = do { local $/; <$fh> };
close $fh;

my $text = $tika->tika($pdf);
print "$text\n";