Create newpwd.pl