Select Code to Download

Shop::db_connect( \%conf ) ;

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

#! /usr/bin/perl

...
    my $conf = shift ;
    $conf->{DB_NAME} = 'DB03' ;
}