#!/usr/bin/perl 

use strict;
use PDF;

foreach(@ARGV){
    my $PDFfile=PDF->new( $_ );
    if ( $PDFfile->IsaPDF) { print qq(Is a pdf\n); }
    else { print qq(This is not a pdf file\n); }
}