$ perl -wE 'use strict; my $f = sub { say qq(lol WTF?)}; 1->$f;' lol WTF?