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

next unless my $rem_addr = accept(SESSION,SOCK);
my ($r_port,$r_addr) = sockaddr_in($rem_addr);
warn "Connection from [", inet_ntoa($r_addr),",$r_port]\n";

SESSION->autoflush(1);
my $incoming = '';
my $line = '';
while( defined($line = <SESSION>))
{
    $incoming .= $line;
    last if $incoming =~ /\n$/; # vain attempt to find end of line
}

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