Select Code to Download

#!/usr/bin/perl
while (<>) {
...
    $c{$_}++ for (split //);
}
printf("%02x : %s : %d\n",ord($_),$_,$c{$_}) for(sort keys %c);

  perl  that_script < your_file.txt > char_list.txt

   perl unichist -x < your_file.txt > char_list.txt