use Filter::Crypto::CryptFile qw(:DEFAULT $ErrStr);
 
my $in_out_file = "./test.pl";
crypt_file($in_out_file) or die "crypt_file() failed: $ErrStr\n";