Select Code to Download

#!c:/perl/bin/perl -w
use strict; # I am getting into the habit of using this!
...
for (my ($name,$value) = each %output) {
     print qq|$name=| . uri_escape($value) . "&";
}