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

##</code><code>##

ENCRYPTED_PASSWORD

##</code><code>##

print $enc_pass;

##</code><code>##

ENCRYPTED_PASSWORD

##</code><code>##

my $gpg_output = `gpg --passphrase-fd 0 --decrypt --output oldfile newfile`;