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

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

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

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

}