$session = $sock->accept();
while (<$session>)
{
    $recv_msg = $_;

    print $recv_msg;

    $send_msg = scalar reverse $recv_msg;

    print $session $send_msg;

}