I use half a dozen languages for work and fun, but when I need to quickly get stuff done, Perl still does the job. I couldn't imagine my life without it.

#!/usr/bin/env perl -w
use strict;
sub birthday {
    print("Happy $_[0] birthday!n");

A huge thank you to Peter Whiting who showed me Perl when I was 19, and to Larry Wall, Tom Christiansen and Jon Orwant for the language and the Camel Book :).