sub login {
    my $username = shift;
    my %logins = shift;