I added two features in bleadperl recently:
# new prototype character ! # _ is just like $, except that it defaults to $_ : sub foo (_) { print "<@_>\n"; } foo(42); # prints <42> foo(); # equivalent to foo($_)
BEGIN{ *CORE::GLOBAL::readpipe = sub($){ ... } } qx/foo/; # calls the function with "foo" as argument `foo`; # same thing