Select Code to Download

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

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