or download this
main::typing called at (eval 25)[today.pl:1510] line 2
main::lurking called at (eval 26)[today.pl:1510] line 2
...
main::get_to_work called at (eval 29)[today.pl:1510] line 2
main::drive called at (eval 30)[today.pl:1510] line 2
main::wake_up called at (eval 33)[today.pl:1510] line 2