#!/usr/bin/perl -wT
use strict;
use lib '/home/4220/straitwa/www.straitway.net/shop_34/lib';
use Shop;

my (%conf, $conf, $dbh, $sth, $rc, @db_conf);

#open the config file and parse it
unless ($conf = do ('/home/4220/straitwa/www.straitway.net/shop_34/conf.pl')) {
  die ("Could not open config file");
}

my $one = $conf->{'db_database'};

print "Print - ", $one, " - from the main package\n";

Shop::db_connect;