$hash1= `makepasswd --clearfrom=$path/keys/temppw --crypt-md5 --verbose | grep Password=| cut -d"=" -f3`; 
chomp($hash1); 

$hash2=`makepasswd --clearfrom=$path/keys/temppw2 --crypt-md5 --verbose | grep Password=| cut -d"=" -f3`; 
chomp($hash2); 

#I need to update the hashes over ssh because I will be doing this on remote machines, so I'm doing the following to test on the local machine for now.... 

system("ssh -o StrictHostKeyChecking=no root\@localhost /usr/bin/perl -p -i -e s/$hash2/$hash1/ee hashfile") == 0 
or @errors=(@errors,"\n$server hash update error: $?\n");