#!/usr/bin/perl -w

use strict;
use warnings; 
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Dumper;

my $cgi = CGI->new();
print $cgi->header(type => "text/plain");
my %vars = $cgi->Vars();

print Dumper(\%vars),"\n\n";

my @tests = split /\0/,$vars{test};
print Dumper(\@tests);