my $passphrase = "perl is great!"
open OUT,"|./pgp testMSG.pgp" ;
print OUT "$passphrase\n";
close OUT ;