sub rekursion {
  my($arg1, $arg2) = @_;

  #...

  return (($arg2 - $arg1) == 0) ? ($arg2) : rekursion($arg1, $arg2);
}