Select Code to Download

use Data::Dumper;
my %passwords; # please don't name your data structure
...
                          # is empty.

# rest of the script goes here

while(1)
{
...
                last;
           }
}