# Sender
$cipher->start('encrypting');
print $sock $cipher->crypt($_) while <STDIN>;
print $sock $cipher->finish();

##</code><code>##

# Receiver
$cipher->start('decrypting');
local $/ = \4096;
process_bytes($cipher->crypt($_)) while <$sock>;
process_bytes($cipher->finish());

##</code><code>##

# Interactive receiver
$cipher->start('decrypting');
for (;;) {
   my $rv = sysread($sock, my $buf='', 4096);
   die $! if !defined $rv
   last   if !$rv;
   process_bytes($cipher->crypt($buf));
}
process_bytes($cipher->finish());