#!/usr/bin/perl -w -T

# sinet.pl A simple inetd socket server.

use strict;

my $old_fh = select(STDOUT);
$| = 1;
select($old_fh);

while( my $line = <STDIN> )
{
    $line =~ s/\r?\n$//;
    if ($line =~ /endit/) 
    {
	die "shutting down\n";
    }
# do your processing here!
    print "  $line\n";
}