>perl -wMstrict -le "sub { print $_[0] }->('hi')"
hi