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

use strict "vars";
#-----------------------------------------------------------------------------
my $Line;

$| = 1;

do {
    if (defined($Line = <STDIN>)) {
        chomp($Line);
        print("$$ received =$Line=\n");
        }
    } while (defined($Line) && $Line ne "stop");
#-----------------------------------------------------------------------------