#!/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,">$fileName") || die "Can't open $fileName" ;
print F <<"EOT" ;
EOT
close F ;