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 {
    *one = *main::one;
    print "Print - ",$one, " - from the Shop package\n";
}

1;