#!/usr/local/bin/perl while (@ARGV) { $file = pop @ARGV; process($file); } sub process { my($file) = $_[0]; my($out) = $file; $out =~ s/\.java/\.html/; printf("Creating $out\n"); open(FI,$file) || die $!; open(FO,">$out") || die $!; my($name) = $file; $name =~ s/\.java//; header($name); while () { s/ $name

Also available as $name.java

HEAD

}

sub footer {

print FO<

FOOT
}