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

# sinet.pl A simple inetd socket server.

use strict;

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

my $line = <STDIN>;

print "Hello " . $line . "Welcome to my LinBPQ Demo App. type exit to close\n";

while( my $line = <STDIN> )
{
    $line =~ s/\r?\n$//;
    if ($line =~ /exit/) 
    {
		die "shutting down\n";
	}

	# do your processing here!

	print "  $line\n";
}