#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $host = shift || 'localhost';
my $port = shift || 7890;
my $sock = new IO::Socket::INET(
                  PeerAddr => $host,
                  PeerPort => $port,
                  Proto    => 'tcp');
$sock or die "no socket :$!";


my %handler = (
    Name     => \&name,
    Password => \&pass,
);

sub show_reply_and_next {
    do {
        $_=<$sock>;
        print unless /Enter $/;
    } until /^Enter (\w*)/;

    # $1 holds what to do next
    if ($handler{$1}) {
        $handler{$1}->();
    }
    # else just return
}

sub hello {
    print $sock "HELLO\n";
    show_reply_and_next();
}

sub name {
    my $name = <STDIN>;
    print $sock "NAME: $name";
    show_reply_and_next();
}

sub pass {
    my $pass = <STDIN>;
    print $sock "PASS: $pass";
    show_reply_and_next();
}

###

hello();   # initiates login

print $sock "DATE\n";
print scalar <$sock>;

print $sock "NONE\n";
print scalar <$sock>;

close $sock;