unit class Abyss::Server:ver<0.0.1>;
use MONKEY-SEE-NO-EVAL;

method readeval {
  my $listen = IO::Socket::INET.new( :listen,
                                     :localhost<localhost>,
                                     :localport(3333) );
  loop {
      my $conn = $listen.accept;
          while my $buf = $conn.read(1024) {
              EVALFILE $buf.decode;
          }
      $conn.close;
  }
}