#!/usr/bin/perl

  use IO::Socket ;
  
  $ENV{PERLIO} = ":raw" ;
  
  $|=1;

  my $port = 2345 ;
  my $host = 'localhost' ;

  my $sock = new IO::Socket::INET(
     PeerAddr => $host,
     PeerPort => $port,
     Proto    => 'tcp',
     Timeout  => 30 ,
     ) ;
  
  if (! $sock) { die "ERROR! Ca'nt connect\n" ;}
  $sock->autoflush(1);

  print $sock "A\nA" ;
  
  sysread($sock, $read , 3) ;

  &BYTES($read) ;

  close($sock) ;


exit;

sub BYTES {
  my @d = split(//s , @_[0] );
  
  foreach my $d_i ( @d ) {
    my $s = unpack("C", $d_i ) ;
    print "$s\n" ;
  }

}