#!/path/bin/perl
use Data::Dumper;
use PDF::API2;
use Encode;
my $dir = '/tmp/';
my $file = $dir.'test.pdf';

my $pdf = PDF::API2->open($file);
my %info = $pdf->info;
print Dumper(%info);
foreach my $key (sort keys %info) {
  print "$key ->";
  print decode("utf8", $info{$key});
  print "\n";
}