use Data::Dumper;
use Apache::Tika::Server;

my $tika= Apache::Tika::Server->new();
#    $tika->launch();  

my $fn = "x.pdf";
print Dumper $tika->get_text($fn);