use PDF;
my $pdf = PDF->new($filename);
my $info = $pdf->GetInfo('Title');
print $info, $/;