Select Code to Download

#!usr/bin/local/perl
use strict;
use warnings;
...
while (my ($key,$value) = each %passwords) {
    print "$key => $value\n";
}