#!/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;