>perl -wMstrict -e "my $cr = \&{ print 'aaa' };  $cr->();"
Undefined subroutine &main::1 called at -e line 1.
aaa