Code:

#!/usr/bin/perl -w 
use strict; 
use File::Extract::PDF; 
my $filename= 'e:\\phd\\nano corpus\\1.pdf'; 
my $e = File::Extract::PDF->new(); 
my $r = $e->extract($filename); 
print $r; 

Returns:

File::Extract::Result=HASH(0x24034ec)