#!/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 $q = CGI->new("E=MC2");
say 'args($q->param("e")) == ', args($q->param("e"));
say 'args($q->param("E")) == ', args($q->param("E"));
say Dumper($q);