Select Code to Download

use strict;
use Date::Manip;
...

print "(that's $secs seconds...)\n";
sleep $secs;