#!/usr/bin/perl -w
 
use strict;
use diagnostics;
 
my $preprocessdir;
my $db_username;
my $db_password;
my $db_host;
my $db_database;
my $db_table;
my $db_tracelog;
my $conf_file;
my $return;
 
 
$conf_file = "/home/kuser/dbconnect.inc.pl";
unless ($return = do $conf_file) {
warn "couldn't parse $conf_file: $@" if $@;
warn "couldn't do $conf_file: $!"    unless defined $return;
warn "couldn't run $conf_file"       unless $return;
}
 
print $db_username;
print $db_password;
print $db_host;
print $db_database;
print $db_table;