Help for this page

Select Code to Download


  1. or download this
    binmode STDIN, ":encoding(utf8)";
binmode STDOUT, ":encoding(utf8)";
  2. or download this
    my $cgi =
    $ENV{REQUEST_METHOD} eq 'GET' 
    ? CGI->new(decode_utf8 $ENV{QUERY_STRING})
    : CGI->new;