open(USEDPW, "> $usedpw") or die "crap on me for writing $!";
flock USEDPW, 2;