#!/usr/bin/perl -w
sub JavascriptEncodeText($)
{
my $string = shift;
unless (defined ($string))
{
$string = '';
}
$string =~ s/([\x{80}-\x{ffff}])/sprintf('%04X;', ord($1))/ge;
return "$string";
}
#apples
print "test\n";
<\/code>