view not-used/about.pl @ 97:8a3615df4c18 laserkard

saving progress, going to add styles
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Jul 2010 03:51:01 -0400
parents 599d0315537d
children
line wrap: on
line source
1 #!/usr/bin/perl
4 sub gen
5 {
6 open FILE, "<./about.php";
7 return do { local $/; <FILE> };
9 };
11 print "Content-type: text/html\n\n";
13 $rr = &gen();
14 print "\n";
15 print $rr;
16 print "\n";