use strict;
my $flag = shift;
sub hello { return "hello by reference\n" }
print xello() if $flag;


##</code><code>##

$ perl -MO=Lint,all blint.pl
Undefined subroutine xello called at blint.pl line 4
blint.pl syntax OK