#!/usr/bin/perl
use strict;
use warnings;

while (<STDIN>)
{
  chomp;
  print "READ FROM STDIN: $_\n";
}