#!/usr/bin/perl sub print_header { my ($title) = @_; my $ctitle = $title; $ctitle =~ s/<([^<>])>//g; print " $ctitle
$title

Latest Release
     1.5.6
     08 July 2004

BeAIM
     BeAIM Home
     Updates
     Download
     Screen Shots
     Archive

\n"; } sub print_footer { print "

Copyright © 2003-2004 Kyle Donaldson <gile at csh.rit.edu>
Copyright © 1999-2003 Greg Nichols <greg at fifthace.com>
\n"; } my ($page) = @ARGV; if ($page eq "") { $page = "home" } print "Content-Type: text/html\r\n\r\n"; print_header("BeAIM: Chat for the BeOS"); open(FILE, "$page.html") or die("No such page as $page is available"); print ; close(FILE); print_footer();