#================This part is compulsory in order to run the perl page.=================#

#!/usr/bin/perl -w
  $| = 1;


print "Content-type: text/html\n\n";
for($i=0; $i<8;$i++)
{
	$str = $str . "%2$i";
}

print $str;

$user_email 	=~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg;

print $str;