"; print "$_[0]"; print "<TITLE><HEAD><BODY>" } sub footer { print "<BODY><HTML>"; } sub mime { print "Content-type: text/html\n\n"; } 1;

#!/usr/local/bin/perl; sub cap { $captext = $_[0]; $captext =~ tr/a-z/A-Z/; return $captext; } sub which { $browser = $ENV{'HTTP_USER_AGENT'}; if ($browser =~ /MSIE/) { $browser = "Explorer"; } elsif ($browser =~/Mozilla/) { $browser = "Netscape"; } else { $browser = "something besides Netscape and Explorer"; } } sub header { print ""; print "$_[0]"; print "<TITLE><HEAD><BODY>" } sub footer { print "<BODY><HTML>"; } sub mime { print "Content-type: text/html\n\n"; } 1;