package test_package;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);
@EXPORT_OK = qw(&test_sub1 &test_sub2);
$VERSION = '0.01';

sub test_sub1{

	for my $subkey (sort keys %{$main::hash{'Bob'}}){
		print "SubKey: $subkey = $main::hash{'Bob'}{$subkey}<br>\n";
	}
}

sub test_sub2{
	print 'Cached: '.$main::cached_when."<br>\n";
	print 'Now: '.(localtime)."<br>\n";
}


1;
__END__