$ perl -wle'
my $var = foo;
sub foo { 23 }'
Unquoted string "foo" may clash with future reserved word at -e line 2.
$ perl -wle'
sub foo { 23 }
my $var = foo'
$