use CGI qw(:standard); # import so no objects
my $data = [Vars];