zongors-reality-engine/test/add.pl

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

my $sum = add(1, 1);
print($sum . "\n");