use CGI;
use Encode;
use URI::Escape;

my $cgi = new CGI;

$isogreek 		= $cgi->param('greek');
$isogreek 		= decode_utf8($isogreek);
$ucs2     		= encode("UCS-2BE", $isogreek);
$escaped 		= uri_escape($ucs2);

print "Content-type: text/html\n\n";
print "$escaped  <br>";