do {
   use IO::Socket;
   my $sock = new IO::Socket::INET (
                        LocalHost => 'localhost',
                        LocalPort => '7070',
                        Proto => 'tcp',
                        Listen => 20,
                        Reuse => 1,
                        );
   die "Could not create socket: $!\n" unless $sock;

#   $sock->autoflush(1);
   my $new_sock = $sock->accept();
   $sock->autoflush(1);

# -------------------------------------------------------------------------
# --- Now process the buffer                                            ---
# -------------------------------------------------------------------------
   while ($BUFFER = <$new_sock>)
   {
   do stuff here

   } else
        {
           #print "$ORIGIN Un-Processed Buffer: $BUFFER\n";
           print ERR_DATA "$ORIGIN Un-Processed Buffer: $BUFFER\n";
         }
}

close($sock);