#!/usr/bin/perl

# Connection to database

use FindBin qw($Bin);
use basedat "$Bin/basedat";

$dbh = basedat::new();

if (defined($dbh)) {
    print "connection ok!\n";
}