:) Aww, you didn't take my message to heart :(

update: well on the first part you actually appear to be trying on the the second part

I'll start with some notes, please consider them

When you add comments to your code, might as well make them real quotes (valid perl syntax), use the #, everything after is ignored

It might not matter for your machine but  use Vars; won't work on case insensitive filesystems because perl comes with vars

$ perl -le " use Vars; print for keys %INC; "
warnings.pm
warnings/register.pm
Vars.pm
strict.pm
[download]

For some module naming guidelines try Namespace for local/internal modules? and consider MyApp::Vars or My_Corp::Vars or Local::Vars

I appreciate the fact that you might not be able to change this for some reason

I'll be back in a few minutes with some code, but in the meantime, you might as well check out the sections on argument passing in perlintro and the free Modern Perl book, a loose description of how experienced and effective Perl 5 programmers work....You can learn this too.

Here we go, csvtest.pl

#!/usr/bin/perl --
use strict; use warnings;
use edi_mysql;

use Carp::Always;


Main( @ARGV );
exit( 0 );

sub Main {
    my @forDbi  = (
        'dbi:SQLite:dbname=temp.test.sqlite',
        'username',
        'password',
    );
    
    my $csvargsHashref = {
        quote_char          => '"',
        sep_char            => ":", # no more split /\:/
        allow_loose_escapes => 1,
        empty_is_undef      => 1,
        binary              => 1,
        auto_diag           => 1,
    };
        
    edi_mysql::insert_tab(
        \@forDbi,
        [
            'tablename',
            'tab1', # column name
            'tab2', # column name
        ],
        '/data14/docs/konvdocs/ebookkto.txt.old',
        $csvargsHashref,
    );
}
[download]

instead of \@forDbi you can change edi_mysql::insert_tab so it takes a $dbh instead

And here is edi_mysql.pm

package edi_mysql;
use strict; use warnings;
use Text::CSV;
use DBI;

use vars qw/ $VERSION /;
$VERSION = 0.01;

sub insert_tab {
    use Data::Dump; dd\@_;
    my( $forDbi, $tableCol, $csvfile, $csvargs ) = @_;
    
    my( $tablename, @columns ) = @{ $tableCol };
    
    open my($infh), '<', $csvfile or die "Can't open '<', $csvfile : $
+!";
    
    my $csv_in = my $csv = Text::CSV->new( $csvargs )
        or die "Cannot use CSV: ".Text::CSV->error_diag ();
    
    
    my( $dbiconn, $user, $pass ) = @{ $forDbi };
    my $dbh =  DBI->connect(
        $dbiconn,
        $user,
        $pass,
        { RaiseError => 1, PrintError => 1, },
    );
    
    
    $dbh->begin_work;
    
    
    my $sth = $dbh->prepare(
        sprintf "insert into %s (%s) values (%s) on duplicate key upda
+te",
            $dbh->quote_identifier(
                $tablename
            ),
            join(
                ',', 
                map { $dbh->quote_identifier($_) } @columns
            ),
            join( ',', ('?') x @columns )
    );
    
    while ( my $row = $csv_in->getline( $infh ) ) {
        $sth->execute( @{ $row } );
    }

    $dbh->commit;
    $dbh->disconnect;

}


1; ## without return keyword
[download]

I've tested it with sqlite, it works

The Modern Perl book covers all this too, but see also Tutorials: Simple Module Tutorial , Variable Scoping in Perl: the basics, Coping with Scoping , Mini-Tutorial: Perl's Memory Management

You are so great ! That was so helpful.