#!/usr/bin/perl -w

use DBI;
use strict;

my ($dsn) = "DBI:mysql:test;mysql_read_default_file=$ENV{HOME}/.my.cnf";
my ($user_n) = "";
my ($pass)  = "";
my ($dbh,$sth);
my (@ary);
my ($query);

$dbh = DBI->connect($dsn,$user_n,$pass,{ RaiseError => 1 });