use Text::FromAny;

my $pdf_file = "foo.pdf";
my $obj      = Text::FromAny->new(file => $pdf_file);
my $text     = $obj->text;    
print $text;