:
eval 'exec perl -S `echo $0 | sed "s/.*\///" ` ${1+"$@"}' 
    if 0;
@a=@ARGV; @flags=grep(/^-/,@a); @other=(); 
@other = grep(!/^-/,@a); 

if ( scalar(@a) != 1 or
     grep( /^-h(elp)?$/,@flags) or scalar(@other) != 1) {
 	$scriptName = $0; $scriptName =~ s%^.*/%%;
	print <<"END";
Usage: $scriptName [-h -help] Class
Print out code for standard logging.
END
exit;}

$rN="\n"; $rN="\n" if ( ! -d "/var" );

$Class = "$other[0]";
$Class =~ m/([a-zA-Z])(.*)$/ ; $first = uc $1 ; $second = $2;
$Class = "$first$second"; 

print <<"END";

import java.util.logging.*;
  \@SuppressWarnings("unused")
  private static final Logger LOG 
    = Logger.getLogger(${Class}.class.getName() /*,${Class}.class.getName()*/);

  boolean verbose = LOG.isLoggable(Level.FINE);

END