next.cgiを以下のようにして呼び出して下さい。
ご希望の結果が出ると思います。
--------------------------------------------------------
#!/usr/local/bin/perl
use strict;
my ($vp, $allhits, $group, $cat);
my %DATA = ();
my @pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach (@pairs) {
my ($name, $value) = split /=/;
$value =~ tr/+/ /;
$value =~ s/\n//g;
$DATA{$name} = $value;
}
$vp = $DATA{'vp'};
$allhits = $DATA{'allhits'};
$group = $DATA{'group'};
$cat = $DATA{'cat'};
print "Content-type: text/html\n\n";
print "vp = $vp<br>\n";
print "allhits = $allhits<br>\n";
print "group = $group<br>\n";
print "cat = $cat\n";
exit;