use strict;
use Time::Warp;

&speed;
&lunch;
&speed;

sub speed {
  to(time+14400);
  scale(scale*16);
}
sub lunch {
  to(time+3600);
  scale(scale*.25);
}
[download]

...or any work day, really.

-OzzyOsbourne