4:30 -- Wake up and go for walk, eat, etc.
6:00 -- Perl related stuff, whatever I want.
9:00 -- Work.
12:00 -- Eat.
1:00 -- Work again.
5:00 -- Eat.
6:00 -- Do "extra" work.
7:00 -- Relax, or program, etc.
10:00 -- Sleep.
More than enough time to get done what I want. I hope I can keep it up. Hasn't been hard so far.