$ perl -lwe '*4 = sub { print "yes" }; 4->()' 
yes