#!/usr/bin/perl

use strict;
use warnings;
use AppConfig;

my $dbh = DBI->connect("DBI:mysql:$AppConfig::dbhame:$AppConfig::dbhost",
   $AppConfig::dbuser,$AppConfig::dbpasswd) or die $DBI::errstr;
#...