Select Code to Download

use Socket qw(:DEFAULT :crlf);
use IO::Handle;
...
SOCK->autoflush(1);

print SOCK $encrypted_message . CRLF;

use Socket qw(:DEFAULT :crlf);
use IO::Handle;
...

chomp $incoming;
my $msg = decrypt($key, $incoming);