Select Code to Download

#!/usr/bin/perl

...
</body>
</html>
END_HTML

my @pairs = split /&/, $query_string;
foreach my $p(@pairs) {
...
    my ($key, $val) = split /=/, $p, 2;
    $data{$key} = $val;
}