Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

print outer(12), "\n";  # 13
print outer(42), "\n";  # 13 !!

Select or download this

Variable "$x" will not stay shared at 1.pl line 9.