sub add_user {
    my $dbh = new_dbh();
    my $username = $_[0];
    my $password = $_[1];
    my $email = "$username\@email.com"; #change when live.
    my $ppr = Authen::Passphrase::BlowfishCrypt->new(
        cost => 12, salt_random => 1,
        passphrase => "$password");
    my $hash = $ppr->hash_base64;
    my $salt = $ppr->salt_base64;
    my $sth = $dbh->prepare('INSERT users (users_id,user_name,password,email,lib_id,department_id,
                        permissions, session_id,salt)
                        VALUES
                        ("",?,?,?,"1","1","1","",?)
                        ')
                or die "Couldn't prepare statement: " . $dbh->errstr;
    $sth->execute($username,$hash,$email,$salt) or die "Couldn't execute statement: " . $sth->errstr;
    $sth->finish;
    $dbh->disconnect;

}