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;