#!/usr/bin/perl -w

use strict;

# for telnet, turn off buffering.
$| = 1;

while (1)
{
    print "? ";
    $_ = <>;
    #print(unpack('H*', $_), "\n");
    print $_;
    open FILE, ">/tmp/moo"; print FILE $_; close FILE;
    last if $_ eq "y";
 }

print "\n";