sub name 
{
    my $self = shift;
    $self->{NAME} = shift;
}