Select Code to Download

use Encode;
my $word = "naġ Exists";
my $encoded_word = Encode::encode('utf8', $word);
$out1=(`java -classpath /usr/local/lib/CS.jar csearch/CorpusSearch 'HT
+MLQ(($encoded_word))' c_006_pos.txt.cs`);
print $out1;

print "Content-type: text/html; charset=utf-8
... set $out1 from java program ...
print Encode::encode('utf8', $out1);