Help for this page

Select Code to Download

Select or download this

C:\>perl -E "use 5.018; use strict; my $c; $c = &func() ? say '$c foun
+d!' : say 'None!';"
Undefined subroutine &main::func called at -e line 1.

Select or download this

C:\>perl -E "use 5.018; use strict; sub func {say 'in func()';}my $c; 
+$c = &func() ? say '$c found!' : say 'None!';"
in func()
$c found!