cat file |gpg --passphrase-fd 0 --decrypt --output oldfile newfile

##</code><code>##

my $enc_pass = shift( @{ [ <$file> ] } );

##</code><code>##

for (;<FH>;) {
  print $_;
}