#!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();

##</code><code>##

use strict;

sub top {
	print "Top stuff<br><br>";
}

sub test {
	print "Bottom stuff<br><br>";
}

1;