use PDF;
my $pdf=PDF->new($filename);
print "$filename is a PDF file\n" if ($pdf->IsaPDF);