print "# ";
$msg = <STDIN>;

while ($msg !~ /^end$/)
{
    print $sock "$msg";

    my $in_msg = <$sock>;
    print "> ",$in_msg;

    print "# ";
    $msg = <STDIN>;

}

##</code><code>##

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

    print $recv_msg;

    $send_msg = scalar reverse $recv_msg;

    print $session $send_msg;

}