sub name {
    my $me=shift;
    get {
       $me->{name};
    }
    set {
       die "Invalid name" unless $_[0] =~ /^(\w+)$/;
       $me->{name} = $1;
    }
}