$dsn = 'DBI:mysql:ciprestest:localhost';

##</code><code>##

my $database="ciprestest";
my $host="localhost";
my $DSN=sprintf("DBI:mysql:database=%s:host=%s",
                $database,$host;
my $dby = DBI->connect($DSN,$dbuser,$dbpass,
                 {RaiseErrors => 1 ) 
    or die $DBI->errstr;