my ($_username, $_password);

sub new {
    my ($username, $password) = @_;
    $_username = $username;
    $_password = $password;
    my $self = {};
    # ...
    bless $self;
}