Select Code to Download

my $plaintext = do{local $/;<$in>};

my $plaintext = do{local $/;<INFILE>};

my $ct = $pgp->encrypt( Key => $cert, Data => $plaintext, Armour => 1 
+) or die "ERROR: " . $pgp->errstr;