Select Code to Download

sub add {
    my $current = 0;
...
    push @_, substr $current, 0, -1, '' if length $current > 1;
    return &add . $current;
}

$\ = "\n";

...

# Next line is not -w safe: "Deep recursion"... grin.
print add('9' x 5000, 1) eq '1' . ('0' x 5000) ? "Works" : "Doesn't wo
+rk";