my $dbh = DBI->connect("DBI:mysql:database=@{[DBNAME]}",'username','password') or die();