/doc/generate.pl
#!/usr/bin/perl

my $name = shift;

eval `cat $name.frag`;

print <<PROTO;
<html>
<head>
<title>$TITLE</title>
<link rel="stylesheet" href="doc.css">
</head>
<body>
<h1>$TITLE</h1>

$CONTENT
</body>
</html>
PROTO