Select Code to Download

sub AUTOLOAD {
  ...
  *{$AUTOLOAD} = sub { ... }; 
  goto &$AUTOLOAD;
}

sub AUTOLOAD {
  my($attr) = $AUTOLOAD =~ /^.*::(.+)$/;
  return $_->{$attr}; 
}