#!/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;

##</code><code>##

package Shop;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(db_connect);

sub db_connect {
	print "Print - ",$main::one, " - from the Shop package\n";
}

1;

##</code><code>##

Print - straitway_1 - from the main package
Use of uninitialized value in print at /home/4220/straitwa/www.straitway.net/shop_34/lib/Shop.pm line 13.
Print -  - from the Shop package