sub AUTOLOAD {
    my $name = $AUTOLOAD;
    $name =~ s/^.*:://;
    *$name = sub { ....... };
    goto &$name;
  }