Well, as long as we're golfing:

#!/usr/local/bin/perl

print add(1,2);

sub add{
  $_[0] + $_[1];
}
[download]

-- Dan