#!c:/apache/perl/bin/perl.exe

BEGIN {
    $| = 1;
    open (STDERR, ">&STDOUT");
    print qq~Content-type: text/html\n\n~;
}

use CGI;
use strict;
use lib qw( c:/apache/cgi-bin/lib );
use MyAppCommon;  # use is basically like require... see the docs for 


my $foo = new CGI;

print $foo->header;

MyAppCommon::top();

print "Test content (should be in middle)<br><br><br><br>\n";

MyAppCommon::bottom();