Añado CREATE DATABASE IF NOT EXIST statement en perldbi.sql