rlm@0: #!/usr/bin/perl
rlm@0: 
rlm@0: 
rlm@0: sub gen
rlm@0: {
rlm@0: open FILE, "<./about.php";
rlm@0: return do { local $/; <FILE> };
rlm@0: 
rlm@0: };
rlm@0: 
rlm@0: print "Content-type: text/html\n\n";
rlm@0: 
rlm@0: $rr = &gen();
rlm@0: print "\n";
rlm@0: print $rr;
rlm@0: print "\n";