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>";