#!/usr/bin/perl -w

use strict;
use warnings;

open(my $FH, ">D:\\DESKTOP\\CharacterList123.txt")
  or die "\nCannot create file!\n";
print $FH '<PRE>';
for (my $i = 0; $i < 256; $i++)
{
  print $FH sprintf('%0.4X ', $i), "$i = &#$i;  ( &amp;#$i; )\n";
}
print $FH "\n\nTesting some Hebrew letters now:\n",
          "\n&#1513; &#1500; &#1493; &#1501;\n";
print $FH '</PRE>';
close $FH;
print "\nSUCCESS!\n\n";
exit;

##</code><code>##

<SCRIPT>
<!--

/* Print 256-color palette with JavaScript */


COUNT = 0;
HTML = ["\x3CTABLE CELLSPACING=0 CELLPADDING=6>"];
for (r = 0; r < 6; r++)
{
  RED = "00  33  66  99  cc  ff".substr(r << 2, 2);
  for (g = 0; g < 7; g++)
  {
    HTML.push("\x3CTR>");
    GREEN = "00  33  66  99  cc  e8  ff".substr(g << 2, 2);
    for (b = 0; b < 6; b++)
    {
      BLUE = "00  33  66  99  cc  ff".substr(b << 2, 2);
      HEXCOLOR = RED + GREEN + BLUE;
      HTML.push("\x3CTD BGCOLOR='" + HEXCOLOR + "'>\x3CTT>\x3CFONT SIZE=1>" + (COUNT | 256).toString(16).slice(1) + "=" + HEXCOLOR);
      COUNT++;
    }
  }
}
document.write(HTML.join("") + "\x3C/TABLE>");
HTML = 0;
-->
</SCRIPT>