The return keyword can be omitted when it's the last line of a sub, so this will also work:

#!/usr/local/bin/perl

print add(1,2);

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

or for that matter

sub add{
  shift+shift;
}
[download]

Update: OK, so I guess the shift() there is ambiguous. Anyway, you get the point.

blokhead