pelのCGIでパラメータを受け取る方法

perl 
use CGI;
my $q = CGI->new();
/action.cgi?apple=red&banana=yellow&peach=pink

だと

print $q->param('apple'), "\n";   # red
print $q->param('banana'), "\n";  # yellow
print $q->param('peach'), "\n";   # pink

という感じになる

ネタ元