use Sub::Install;
 
Sub::Install::install_sub({
  code => sub { ... },
  into => $package,
  as   => $subname
});