#!perl
$|++;
if($pid = fork)
{ <STDIN>; kill 9,$pid; }
else 
{ while(1) 
  { sleep(1);
    print "foo\n"; 
  }
}