package modules::DBfunctions;

use Exporter;

our @ISA=qw(Exporter);

our @EXPORT=qw($dbh connectDB get_table_hash get_erased_msg_text);

our $VERSION=1.9;



use strict;

use DBI;

use modules::Settings;

use vars qw($dbh);



sub connectDB {

	my $dbi = "dbi:mysql:$modules::Settings::c{mysql}{database}:$modules::Settings::c{mysql}{host}";

	$dbh = DBI->connect( $dbi, $modules::Settings::c{mysql}{user}, $modules::Settings::c{mysql}{pass} );

	$dbh->do("SET NAMES 'cp1251'");

	return $dbh;

Сделай так

$dbh = DBI->connect( $dbi, $modules::Settings::c{mysql}{user}, $modules::Settings::c{mysql}{pass} ) || print "Connection error: " . $DBI::errstr . "";

и посмотри что было не так.