require "cgi-lib.pl";
&ReadParse(*input); # store form values in the glob "input"

print &PrintHeader; # print HTML header
print "Name: ", $input{name}, "<br>\n";

##</code><code>##

print "First value: ", $input{valueList}, "<br>\n";
print "All values: ", 
      join("<br>\n", split(/\0/, $input{valueList}));

##</code><code>##

#!/usr/bin/perl -w
# /~alakaboo/cgi-perl/multi.pl

use strict;
use CGI;

my $q = new CGI;
my %v = $q->Vars();

print $q->header('text/plain');

{
    local $" = "\n";

    my @tmp = split /\0/, $v{ar};
    print "@tmp";
}