Select Code to Download

while (<USEDPW>)
    {
...
open(USEDPW, "> $usedpw") or die "crap on me for writing $!";
flock USEDPW, 2;
print USEDPW "$pw\n";

#notice we declare it OUTSIDE the loop
my $pw;
...
open(USEDPW, "> $usedpw") or die "crap on me for writing $!";
flock USEDPW, 2;
print USEDPW "$pw\n";