#!c:/Perl/bin/perl.exe -w

use strict;
use DBI;
my $dbh;
my $db ="F:/Eigene Dateien/Eigene Datenquellen/test.fdb";
my $driver = "InterBase";
my $User = "SYSDBA";
my $Passw = "masterkey";


$dbh = DBI->connect("DBI:$driver:$db", $User, $Passw) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM ZAHLENUNDWOERTER");
$sth->execute();

$dbh->disconnect();