/cgi-bin/sidtest?sid=%32%2D%9F%A5%54%12%23%AA%C8%C7%CF%CE%8E%AC

##</code><code>##

#!/ots/perl/bin/perl
$|++;
use strict;

use CGI;

my $q = new CGI;

my $sid = $q->param("sid"); 

print "Content-type: text/plain\n\n";
print "\nsid is: $sid\n";
print "\nsid escaped is: " . $q->escape($sid);
print "\nsid unescaped is: " . $q->unescape($sid);
print "\nENV{QUERY_STRING} is: " .  $ENV{QUERY_STRING};

exit;


##</code><code>##

sid is: 2-Ÿ¥T#ªÈÇÏÎŽ¬

sid escaped is: 2-%9F%A5T%12%23%AA%C8%C7%CF%CE%8E%AC
sid unescaped is: 2-Ÿ¥T#ªÈÇÏÎŽ¬
ENV{QUERY_STRING} is: sid=%32%2D%9F%A5%54%12%23%AA%C8%C7%CF%CE%8E%AC

##</code><code>##

gen31$ ./sidtest sid=%32%2D%9F%A5%54%12%23%AA%C8%C7%CF%CE%8E%AC
Content-type: text/plain


sid is: 2-¥T#ªÈÇÏά

sid escaped is: 2-%9F%A5T%12%23%AA%C8%C7%CF%CE%8E%AC
sid unescaped is: 2-¥T#ªÈÇÏά
ENV{QUERY_STRING} is: