sub db_connect {
    my $conf = shift ;
    print "Print - ", $conf->{'db_database'},
          " - from the Shop package\n";
}