sub add { my ($a,$b) = @_; return $a+$b; }

# Test code:
print "not ok" if add(2,2) != 4;