BEGIN {
	use strict;
	use test_package qw(&test_sub1 &test_sub2); 
	our $cached_when=(localtime);
}

our %hash = (
	'Bob' => {
			Age => '7',
			Type => 'Foo',
		}
);

print "Content-type: text/html\npragma: no-cache\n\n";

&test_package::test_sub1();

&test_package::test_sub2();