use Time::HiRes qw(usleep); while(1){print "all work and no play makes jack a dull boy"; usleep(10_000)}