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

my ($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");
}

Shop::db_connect;