Help for this page

Select Code to Download


  1. or download this
    sub closure {
    my $a = $_[0];
...

print $second->(), "\n"; # 16
print $first->(), "\n"; # 7
  2. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$