Mega Code Archive

 

Categories / Perl / System Functions

 

Encrypt files

$CryptFile = "crypt.out";     open(OUT,"| crypt > $CryptFile") || die "Can't run crypt\n";     while(<>) {         print OUT;     }     close(OUT);