#!/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