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

##</code><code>##

$0=rel2abs($0) unless file_name_is_absolute $0;