if ($kid) {
    # parent reads from STDIN, prints to socket
    while (defined($in = <STDIN>)) {
#     my $ciphertext = $cipher->encrypt($in);
#     print $ciphertext;
#    print $sock $ciphertext;
   my $ciphertext = crypt_($in);
    }
    # kill the child process
    kill(TERM => $kid);
} else {
    # child reads from socket, prints to STDOUT
    while (defined($buf = <$sock>)) {
#       my $plaintext = $cipher->decrypt($buf);
#    print $plaintext;
   my $plaintext = decrypt($buf);
   print $plaintext;
    }
    close $sock;
}
sub crypt_ {
$cipher->start('encrypting');
print $sock $cipher->crypt($_) while <STDIN>;
print $sock $cipher->finish();
}
sub decrypt {
$cipher->start('decrypting');
local $/ = \4096;
process_bytes($cipher->crypt($_)) while <$sock>;
process_bytes($cipher->finish());
}