#!/usr/local/bin/perl -w
use IPC::Open2;
$| = 1;

while ($line = <STDIN>) {
   last if ($line =~ /die/i);
   #print "child_got_this:$line";
   chomp $line;
   open TTT, ">$line";
   print TTT "file is $line\n";
   close TTT;
}
exit;