use CGI qw(:all);
my $cgi = CGI->new;