find `kpsewhich -expand-var='$TEXMFMAIN'`/fonts/tfm -name '*.tfm' -print | \
	sed 's@.*/@@; s@\.tfm$@@' | \
	xargs sh -c 'for i in "$@"; do (echo $i; echo \\\sample\\\bye) | \
	tex testfont; mv testfont.dvi $i.dvi; echo $i.dvi; done' sh

find /usr/share/texmf/fonts/tfm -name '*.tfm' -print |\
  sed 's@.*/@@; s@\.tfm$@@' > available_fonts.lst

#!/usr/bin/perl -w
use strict;

my $i = 0;
my $lst = {};
my $couter_fonts = 0;
my $couter_files = 0;

open(F, "available_fonts.lst");
while(<F>){
  chomp;
  $lst->{enc($i++)} = $_;
}
close F;

open (F, "+>lst_".$couter_files.".tex\n");
print F qq(\\documentclass{article}\n);
print F qq(\n\\begin{document}\n);
foreach(sort keys %{$lst}){
  if (!(++$couter_fonts % 100)){
    $couter_files ++;
    $couter_fonts = 0;
    print F "\\end{document}\n";
    close F;
    open (F, "+>lst_".$couter_files.".tex\n");
    print F qq(\\documentclass{article}\n);
    print F qq(\n\\begin{document}\n);
  }
  print F "\\newfont{\\myFont$_}{ $lst->{$_} }\n";
  print F "\\myFont$_ $lst->{$_} : Sample Text \\\\ \n";
}
print F qq(\\end{document}\n);
close F;


sub enc{
  my $out = "";
  foreach(split //, shift){
    $out .= chr($_+65);
  }
  return $out;
}

for x in lst_?.tex; do latex $x; done