#pgm8.pl
use AAdb;
print "enter a file \n";
$filename = <>;
my(%db) = &load_db($filename);
#print "$count";
print "$db{0}";
######################################
#AAdb.pm
require Exporter;
@ISA = ("Exporter");
@EXPORT = ("load_db");
sub load_db
{
open (DB, "$filename");
%db = <DB>;
$count = 0;
#while (<DB>) {
#chomp;
#print "$db{$count}\n";
#++$count;
#}
close (DB);
return ("%db");
}
1;
##################################
#testdb
"08"=>"Thor",
"09"=>"HULK"
FUUUUUUUUUUUUUUUUUUUUCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCKKKKKKKKKKKKKKKKK
WHY WON'T YOU GO INTO YOUR HASH, WHY testdb WHY
