perl -e 'sub foo (&) { shift->() } foo { print ":)\n" }'