#!/usr/local/bin/perl -w

use DBI;

print "Test\n";

my $user = "irgendwer";
my $password = "irgendwas";
my $data_source = "dbi:Adabas:refdb"; 

$dbh = DBI->connect ( $data_source, $user, $password )
                     or die "Keine Verbindung zur Datenbank moeglich !\n";


$dbh->disconnect;