--- a/utils/md5pass
+++ b/utils/md5pass
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
 use bytes;
-use Crypt::PasswdMD5;
 use MIME::Base64;
 
 sub random_bytes($) {
@@ -31,4 +30,4 @@ unless (defined($salt)) {
     $salt =~ tr/\+/./;		# . not +
 }
 
-print unix_md5_crypt($pass, $salt), "\n";
+print crypt($pass, "\$1\$$salt\$"), "\n";