c:\@Work\Perl>perl -wMstrict -le
"sub S { return; }
 ;;
 my $s = S() // 'cannot resolve';
 print qq{'$s'};
"
'cannot resolve'