есть у меня головной скрипт и есть свои модули из которых он дергает процедуры и возникла проблема с видимостью переменных ,т.е.
#!/usr/bin/perl -w
# index
use DBI;
use CGI qw/:standard/;
print "Content-Type: text/html\\n\\n";
#мои модули
require \'modules/pricetemp.cgi\';
require \'modules/maintemp.cgi\';
require \'config.txt\';
#вызываю процедуры из модулей
pack1::convert_param();
pack1::date_format();
$dbh = DBI->connect("dbi:$dbdriver:$basename:$hostname:$port","$username","$passwordb") || die print "$DBI::errstr";
....
сам модуль
package pack1;
BEGIN{}
....
sub formating_date($$$$)
{
my $sqlstatement1 = "SELECT DATE_FORMAT($_[3],\'%d.%m.%Y %T\') FROM $_[2] WHERE $_[0]=$_[1]";
my $sth1 = $dbh->prepare($sqlstatement1);
$sth1->execute || die print "$DBI::errstr";
@format_date=$sth1->fetchrow_array;
# formating_date("id_request",$type_request[0],"type_request","date_publication");
}
и тут засада, как быть с переменной для доступа к базе $dbh
