#!/usr/bin/perl 
use strict;

while (<STDIN>)
	{
		print STDERR "Received from tail -f:\t$_";
	}