Hi

I am using Strawberry perl on a Win7 box.

Altho' I have the PDF module installed without error (and PDF::Parse), I can't get the following to run

#!/perl/bin/perl -w

use strict;
use PDF;

my $file = shift;

my $pdf=PDF->new($file);

my $bool = $pdf->IscryptPDF;

my $result = "NO :-(\n";
if ($bool) { $result = "yes!\n"; }

print $result;
[download]

The docm. for these modules is not overly clear about what is required... at least, it isn't clear to me. So I don't know if I am doing something wrong. "Probably" is usually the right answer!

All I am trying to do is write a small test proggy that'll check if a given PDF is password protected or not.

Any suggestions/help/advice gratefully received.

Thanks

Bill