use Unicode::String qw(utf8 latin1);
use URI::Escape;

print "Content-type: text/html\n\n";

my @values = split('/', $ENV{PATH_INFO});

my $utf8 = Unicode::String->new( $values[1] );
print "utf8:".$utf8."<br />";

my $latin1 = Unicode::String::latin1($utf8);
print "latin1:".$latin1."<br />";

# Works in IE
my $unescapeIE = uri_unescape($latin1);
print "unescapeIE:".$unescapeIE."<br />";

# works in FireFOx
my $unescapeFF = uri_unescape($values[1]);
print "unescapeFF:".$unescapeFF."<br />";