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

##</code><code>##

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!