perl -MSub::Install=install_sub -e 'install_sub({code => sub{print "green".$/}, into => +__PACKAGE__, as => "color"}); color()'
green