sub add_user {
    my ($username, $password, $email) = @_;
    ...