my $DSN = 'PostgreSQL30';
my $sqlstring;
my %Data;
my $test;

#Die Abfrage von der Datenbank 
my $db = new Win32::ODBC("$DSN") or die Win32::ODBC::Error();
$sqlstring = "SELECT bezeichnung FROM gn";
$db->Sql($sqlstring);
while($db->FetchRow()) {
	undef %Data;
	%Data = $db->DataHash();	
	print $Data{'name'};
}
$db->Close();