#!/usr/local/bin/perl
 
use CGI;
 
my $query = new CGI ( { single => 'one',
                        multi  => ['two', 'three'],
                      }
                    );
 
$query->import_names('Q');
 
1;