open(FILE, ">>/somefolder/somesubfolder/digest.passwd") or die $!;
     print FILE "$user:$realm:" . Digest::MD5::md5_hex("$user:$realm:$pass") . "\n";
close(FILE);