#!/usr/local/bin/perl

#password correctness md5 direct insert from UNIX hash

open( CRYPT , "MD5 -s $ARGV[0] |" );

$password_hash = <CRYPT>;

close( CRYPT );

print $password_hash;