#!/usr/local/bin/perl
#!/usr/bin/env perl
use v5.12;
use warnings;
use utf8;
use Encode qw/find_encoding/;
use CGI qw/escapeHTML/;
my $enc = find_encoding('UTF-8');
my $q = CGI->new("E=MC2");

say escapeHTML($enc->decode($q->param('E'))); # パラメターが存在すると動くのに
say escapeHTML($enc->decode($q->param('e'))); # 存在しないと動かない