#!/usr/bin/perl -w use strict; BEGIN { use CGI::Carp qw(warningsToBrowser fatalsToBrowser); warningsToBrowser(1); } use FindBin qw($Bin); FindBin->again(); print "Content-type: text/html\n\n"; print < Home HTML do "$Bin/time.cgi"; # htmlcode do "$Bin/menu.cgi"; print < HTML