#!/usr/bin/perl -w

use strict;
$| = 1;

use CGI qw/:standard :no_xhtml/;
use CGI::Carp "fatalsToBrowser";
use Encode;

print header(),start_html(-title=>"");

my $name = "\x{1E02}oo";
my $param1 = param("f0");
Encode::_utf8_on($temp);

print nice_string($param1),br;
if($param1 eq $name)
{
        print "EQUAL",br;
}

print end_html();

sub nice_string {
 join("",
         map {
               printf("%04X ", $_)
         } unpack("U*", $_[0]));           # unpack Unicode characters
 }
[download]