Select Code to Download

while ( <SFILE> ) {
  chomp
...
        }
    print TFILE "@words\n<br>";
}

my %words;
while (<DFILE>) {
...
    my ($key, $val) = split /:/;
    $words{$key} = $val;
};