open(TEMPFILE, ">${TempPath}/temp_shad") || die;
open(SHADFILE, "${TempPath}/$passwdfile") || die;
while (<SHADFILE>) {
	chomp;
	(@entry) = split(/:/,$_);
		$newentry = join(":", @entry);
		print TEMPFILE "$newentry\n";