<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># fontinst.pl
foreach $file (&lt;*.pl&gt;)
{ ($filename) = $file =~ /(\w+)\.pl/;
  system("pltotf $file $filename.tfm");
}
foreach $file (&lt;*.vpl&gt;)
{ ($filename) = $file =~ /(\w+)\.vpl/;
  system("vptovf $file $filename.vf $filename.tfm");
}
</pre></body></html>