#!/usr/local/bin/perl
#!/usr/bin/env perl
use v5.12;
use warnings;
use Carp;
use CGI;
use Data::Dumper;

sub args {
  carp @_;
  return 0 + @_;
}

my $param = CGI->new("E=MC2")->Vars;
say 'args($param->{"e"}) == ', args($param->{'e'});
say 'args($param->{"E"}) == ', args($param->{'E'});
say Dumper($param);