#!/Perl/bin/perl

use strict;
use Win32::ODBC;
use Data::Dumper;

my $db = undef;
# Win32::ODBC #
$db = new Win32::ODBC("MYANGEB.DB");
my %Felder = $db->DataHash;
print Data::Dumper::Dumper( %Felder );
END {
    if( defined $db ){
        $db->Close();
    }
}