高分问一个很简单的问题?(急)

[gpboy2001]

4.请写一小段Perl代码遍历%test散列中所有的关键字以及所对应的值，并打印出来（这个散列已经初始化过）

[gpboy2001]

55555555

[xyzxyz1111]

foreach (keys %test){
print;
print ":";
print $test{$_};
print "\n";
}

[gpboy2001]

帮忙可不可以再帮我看一下这一道呀?
１.我用GET方法向cgitest.pl提交了下面这个字符串：
NAME=lofuture&PASSWORD=why&SEX=%C4%D0&LOVING=FOOTBALL&SEND=%CC%E1%BD%BB
如何在cgitest.pl中得到如下的名称和值的对应形式（保存在一个散列中）：
NAME=lofuture
PASSWORD=why
SEX=男
LOVING=足球
SEND=提交

[gpboy2001]

楼上大哥帮下忙哟,

[xyzxyz1111]

#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $g = new CGI("NAME=lofuture&PASSWORD=why&SEX=%C4%D0&LOVING=FOOTBALL&SEND=%CC%E1%BD%BB");
my %test = $g->Vars();

foreach (keys %test){
printf "%s=%s\n", $_, $test{$_};
}