my $pdf = PDF->new("$path/$aa");

##</code><code>##

foreach my $aa (@all) {
    
    my $pdf;
    eval { $pdf = PDF->new("$path/$aa") };

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

##</code><code>##

# from PDF/Parse.pm

sub IsaPDF {
    return ($_[0]->{Header} != undef) ;
}