I like, I like a lot. I should try my hand at some perl poetry sometime myself. I'd ++ this, but I'm out of votes for today

Just a couple suggestions I have for you

How about use Brains::Fantasy qw(-boundaries);, or use Brains::Fantasy;<br> no Boundries;?

Sigh is the filename of WORKTODO? How about open(WORKTODO, "tedium") and &sigh;

<strikeout>Will you please return my third point to me if you find it?</strikeout>

Ahh, yes, that was it: Your perl has a bug: unless time()==$EndOfDay. Double-equals vs single-equals will mess you up every time... sometimes, I think pascal (:=) had the right thing. (Then I snap out of it and relize how much extra typing that is, and how much I hated it when forced to use it.)

James Mastros,
Just Another Perl Initate