while(1) {  sleep(5); my $x=scalar<>;print "running $$:$x\n"; }