use warnings;
use strict;

if(! $ENV{TEST}) {
  $ENV{TEST}=1;
  exec {$^X} ($^X,$0);
}

while(my $input=<STDIN>) {
  chomp($input);
  last unless($input);
  print "You typed: \"$input\"\n";
}

print "Exiting\n";