Well it looks like this :

$create_query = qq{
        create table event(
            id_event int(10) auto_increment NOT NULL,
            event MEDIUMTEXT COLLATE utf8_general_ci,
            primary key (id_event)
        )
    };
    $dbh->do($create_query);
[download]