use PDF::Tk;
my $doc=PDF::Tk->new(pdftk=>'/apps/free/pdftk/');
$doc->call_pdftk('input.pdf', 'outPDF.pdf', 'owner_pw', 'foopass');