package Autoload;

BEGIN {
			use Exporter();
			@ISA = qw(Exporter);
			@EXPORT = qw(AUTOLOAD);
}

sub AUTOLOAD() {
		my $subroutine = $AUTOLOAD;
		$subroutine =~ s/.*:://;
		$callme = 'Genesis::'.$subroutine;
		&{$callme};
}

END {}

return 1;

##</code><code>##

package Genesis;

BEGIN {
			use Exporter();
			@ISA = qw(Exporter);
			@EXPORT = qw(&readdatafile);
}

##################
sub readdatafile {
##################

     open(FILE, "$datadir/data.dat" ); 
     @thedata = <FILE>;  
     close(FILE);
		 
}

END {}

return 1;

##</code><code>##

$datadir = "path/to/datafiles";

return 1;