Select Code to Download

sub foo {
    my @foo = qw(a b c d);
...
print scalar foo(), "\n"; # scalar context => 4\n
print        bar(), "\n"; #   list context => 154312\n
print scalar bar(), "\n"; # scalar context => 12\n

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$