my $plaintext = do{local $/;<$in>}; #### my $plaintext = do{local $/;}; #### my $ct = $pgp->encrypt( Key => $cert, Data => $plaintext, Armour => 1 ) or die "ERROR: " . $pgp->errstr;