Please use more descriptive die messages, and always use Fcntl.

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

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.