sub new {
    my $class = shift;
    my $self = {name => $_[0], 
		accountNo => $_[1], 
		balance => 0,
    };
    bless($self, $class);
    return $self;
}

sub getName {
    my $self = shift;
    return $self->{"name"};
}