Help for this page
exec $0 unless $all_done;
print "hi!\n"; sleep 2; exec $0;
H:\>test.pl hi! ... H:\>hi! hi! hi!