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