Select Code to Download

#!/usr/bin/perl

...

print "First call: " . outer_function("A", "B") . "\n";
print "Secnd call: " . outer_function("X", "Y") . "\n";

First call: A, B
Secnd call: X, Y

Outer $v1: SCALAR(0xa0078a8) = A
Inner $v1: SCALAR(0xa0078a8) = A
...
Outer $v1: SCALAR(0x9fee760) = X
Inner $v1: SCALAR(0xa0078a8) = A
Secnd call: A, Y