Help for this page

Select Code to Download

Select or download this

BEGIN{
    printf "'%s'\n", scalar caller();
    $main::a || $main::b
}

Select or download this

C:\test\primes>perl -Mstrict -MList::Util=reduce -wE" say reduce{ $a +
+$b } 1,2,3"
'main'
...
Name "fred::b" used only once: possible typo at -e line 1.
6