Select Code to Download

use strict;

...
    /([^&]+)\&/;
    print "$_ - $1\n";
}

use strict;
use URI;
...
my %hash = $uri->query_form();

print $hash{KEY}, "\n";