use DBI;
    $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
    $dbh->{'csv_tables'}->{'dict'} = { 'file' => 'dict.txt'};
    $sth = $dbh->prepare("SELECT * FROM dict");
    $sth->execute() or die "Cannot execute: " . $sth->errstr();