#!/usr/local/bin/perl

  $template = "template.tex" ;
  open(F,"files") ;
  while ( $file=<F> )
  {
     chop $file ;
     printf "Texset: $file\n" ;
     system("m.pl $template $file > temp.tex" ) ;
     system("latex temp.tex") ;
     system("dvips -p1 temp") ;
     system("lpr temp.ps") ;
  }