sub doit2 (&) { $_[0]->() };

doit2( sub { print 'hi2' });