Select Code to Download

w:\xampp\htdocs>errors.pl
2009-02-27
2005-01-01
...
2010-03-01
2009-12-23
2010-02-14

my $DSN = "EXDSN";
my $Dir = "e:/db/";
my $Driver = "Microsoft dBase Driver (*.dbf)";
...
        print join("\n",keys %{ $ref_astore } );
    }
}

my $dir = "e:/db/";
if (-d $dir) {
    print "OK $dir\n";
...
foreach my $key (sort keys %dsn) {
    print "<br>$key $dsn{$key}";
}

OK e:/db/ . .. TABLE.DBF TABLE2.DBF TABLE3.DBF ... 
DB Microsoft dBase Driver (*.dbf)
DSN Microsoft dBase Driver (*.dbf)
EXDSN Microsoft dBase Driver (*.dbf)