perl -le 'use strict; my $foo = \&{ print "bar"}; $foo'