package CustomObject;

sub login {
    my $self = shift;
    return $self->{LOGIN};
}

sub new {
    my ($className, $login, $password) = @_;
    my $self = bless {
        LOGIN => $login,
        PASSWORD => $password
    }, $className;
    return $self;
}

sub password {
    my $self = shift;
    return $self->{PASSWORD};
}

1;