No, it won't compile. Yes, it is 2am and too late for this. No, I don't know why I keep on doing it either. Yes, I know there'll be lots of syntax boo-boos - the first perl I've written in howevermanyyears without a single glance at a camel. Don't care - this is art darlings! :)

$rudolph = new Reindeer(nose=>'#ff0000',shininess=>255);
if ($you{seen} == $rudolph->{nose} && (!$you{say} % 2)) { #hmmm...tenu
+ous:)
    $rudolph->{nose} = glow(); 
}
foreach (@reindeers) {
    $_->laugh($rudolph);
    $_->name_call($rudolph);
}
join ('games',grep {$_ != $rudolph} @reindeers);

$tonight = new Eve(timelocal(0,0,22,24,11,102),'foggy');
if ($rudolph->{shininess} > 200) {
    $santa->say($sleigh->guide($rudolph,$tonight));
    foreach (@reindeers) {
        $_->love($rudolph);
        $_->shout('glee',
            eval{open H ">>.history";print H $rudolph;close H;}
        );
    }
}
[download]

Merry thingy.