my $dbConnect = DBI->connect ("dbi:mysql:dbName", $name, $pass} || errMsg();

sub errMsg
{
    print "Not allowed\n";
}