#!/usr/bin/perl -w

use strict;

for (1..4) {
  print "Happy Birthday ";
  $_ % 3 ? print "to you\n" : print "dear [merlyn]\n";
}
[download]

I'll be celebrating by picking up a new copy of _Effective Perl Programming_ :)