perl -le "*3 = sub { 4 };print 3->()"
4