|
cat << USAGE
Usage: `basename $0` [-options] arguments
USAGE
#!/usr/bin/perl
print <<EOF;
Content-type: text/html; charset=iso-2022-jp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD><TITLE>Sample</TITLE></HEAD>
<BODY>
Sample script
</BODY>
</HTML>
EOF