<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/bin/perl -w


# makes an html file for a java class.
  $usage = "usage: makehtml java-class" ;

  $javaClass = shift ;
  $javaClass || die $usage ;
  $javaClass =~ s/\..*// ;
  $fileName = $javaClass . ".html" ;

   open(F,"&gt;$fileName") || die "Can't open $fileName" ;
   print F &lt;&lt;"EOT" ;
&lt;html&gt;
&lt;head&gt;
&lt;/head&gt;
&lt;body&gt;
   &lt;applet code=$javaClass width=300 height=200&gt;
   &lt;param name="param" value="No Value"&gt;
   &lt;/applet&gt;
&lt;/body&gt;
&lt;/html&gt;

EOT
   close F ;





  
</pre></body></html>