while (<CSV>) {
        chomp;
        ($item,$descr,$latin) = split (/\|/,$_);
        $insert00->bind_param(1,$id,SQL_INTEGER)|| die $insert00->errs
+tr;
        $insert00->bind_param(2,$descr)|| die $insert00->errstr;
        $insert00->bind_param(3,$item,SQL_INTEGER)|| die $insert00->er
+rstr;
        $insert00->bind_param(4,$latin)|| die $insert00->errstr;


        $insert00->execute()||die $dbh->errstr;
        print ",";
        ++$id;
}
[download]

T I M T O W T D I