Select Code to Download

#! perl -slw
use strict;
...
sleep 1 while $running;

printf "Took %.3f seconds\n", time() - $start;