dbmodule.pm
use strict;
use vars qw/@ISA @EXPORT $DBH/;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/
$DBH
&func_1
...
&func_n
/;
use DBI;
my $database = \'database\';
my $username = \'root\';
my $password = \'passw0rd\';
$DBH = DBI->connect("dbi:mysql:$database:localhost:3306", $username, $password, { RaiseError => 1, PrintError => 1 });
END { $DBH->disconnect() if $DBH }
sub func_1 {
...
}
...
sub func_n {
...
}
1;
script.pl
#!/usr/bin/perl
BEGIN { unshift @INC, \'/path/to/modules\' }
use strict;
use lib::dbmodule;