6 lines
152 B
Perl
6 lines
152 B
Perl
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";
|
|
|