use CAM::PDF;
use PDF;
undef $/;
my $path =$ARGV[0];
opendir(DIR, $path) ||  die $!;
@all = grep/\.pdf/, readdir(DIR);
closedir (DIR);

foreach $aa (@all)
{
  my $pdf = PDF->new($aa);

   if ($pdf->IsaPDF)
   {
   print "is a pdf file\n"
   }
 
    else
  {
  print "pdf $aa is corrupted\n";
   }
}