#!/usr/bin/perl -w
use strict;
use IPC::Open2
use FileHandle;

$ENV{PGPPASS} = "MY PASSPHRASE";

print "\nEnter user id: ";
my $user_id = <STDIN>;
chomp $user_id;

print "\nInput file: ";
my $inp_file = <STDIN>;
chomp $inp_file;

open (INFILE, $inp_file) or
     die ("Could not open $inp_file: $!\n");
my @in_data = <INFILE>;
close (INFILE);

my $pid = open2(\*READER, \*WRITER, 'pgp -feast $user_id') or
     warn "$!\n";

READER->autoflush();
WRITER->autoflush();

print WRITER @in_data;

while (<READER>) {
   print;
}