use PDF::Parse;
$pdf->LoadPageInfo;
$pdf->TargetFile($filename);
my $info = $pdf->GetInfo("Title");
print $info;