use Fcntl qw[ :flock ];
flock(SAVEDPW, LOCK_SH) or die "can't lock $saved:$!";