perl -wMstrict -E 'sub blah{}; say defined &blah'
1

perl -wMstrict -E 'say defined &blah'