Select Code to Download

sub add($$) {
    my ($Val1, $Val2) = @_;
...
$a = '99999999999999999999999999999999999999999999';
$b = '1';
print "  $a\n+ $b\n= ", add($a, $b);

  99999999999999999999999999999999999999999999
+ 1
= 100000000000000000000000000000000000000000000