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.