use strict;
use IO::Socket;

while (1) {
  my ($again,$peer,$state);
  print q(Peer: );
  chomp($in = <STDIN>);
  my $sock = build_sock($peer);
  print q(Statement: );
  chomp($state = <STDIN>);
  print $sock $state; close($sock);
  print q(Again? [y/n]: );
  chomp($again = <STDIN>);
  end_transfer($peer) if $again =~ /no?/i;
}

sub build_sock {
  my $peer = shift or die;
  my $sock = new IO::Socket::INET (
    PeerAddr => $peer,
    PeerPort => q(7070),
    Proto    => q(tcp),
  );
  return $sock if $sock;
  die;
}

sub end_transfer {
  my $sock = build_sock(shift);
  print $sock q(END_TRANSFER);
  close($sock);
  exit 1;
}