I know it's horrid, but it's the best I can do on short notice :) .

Enjoy,
Gryn

p.s. this is in reference to New Little Monk (Congrats)

#!/usr/bin/perl
use strict;
use Person;
use Cake;
use Oven;
my $me = Person->new();
my $baker = Person->new();
my $cake = Cake->new();
my $oven = Oven->new();
$baker->sex('male');

order($me => $baker, $cake, $oven);

sub order{
  my ($me, $baker, $cake, $oven) = @_;
  for (1..4) { $baker->pat($cake) };
  $baker->set_temp($oven, 450);
  $baker->set_timer($oven, 10);
  $baker->preheat($oven);
  $baker->pat($cake);
  $baker->prick($cake);
  $baker->mark($cake,"B");
  $baker->bake($cake,$oven);
  $baker->give($cake,(my $baby,$me));
}

__END__
Pat-a-cake 
Pat-a-cake 
Pat-a-cake, Pat-a-cake, 
Baker's man, 
Bake me a cake, 
As fast as you can. 
Pat it and prick it 
And mark it with B. 
Put it in the oven 
For baby and me.
[download]