#!/usr/bin/perl -l
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use CGI qw( :standard );


my @list = param( undef );

print "undef: @list";


@list = ();
@list = param();

print "empty: @list";