#!/usr/bin/perl
use Filter::Crypto::CryptFile qw(:DEFAULT $ErrStr);
open($out_fh,">test.pl");
binmode($out_fh);
open($in_fh,"<testx.pl");
binmode($in_fh);
crypt_file($in_fh, $out_fh, CRYPT_MODE_ENCRYPTED) or die "crypt_file() failed: $ErrStr\n";
close($in_fh);
close($out_fh);
exit;