Select Code to Download

print $stack[ $_ ] for reverse 0 .. $#stack;

undef @stack;

print while pop @stack;