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