my $secret = "Secret Passphrase";
my $password = get_password;
my $salt = get_username;

die unless $password;
die unless $salt;

my $md5 = md5($secret.$password.$salt);