!/usr/bin/perl
use strict;
use warnings;
use CGI;
use utf8;
my $q = new CGI;
$q->charset('utf8');

my $str = $q->param('foo');

print utf8::is_utf8($str) ? 1 : 0, "\n";
print $CGI::VERSION, "\n";
__END__
$ perl foo.pl foo=bää
0
3.15