#! /usr/bin/perl

use lib "/data14/progs/perl_moduls";
use Vars;
%v = new Vars;
use EdifactSplit;
use PK_id;
use PK_prot;
use File::Basename;
use Error;
use Switch;
use DBI;
use edi_mysql; (my module)
use IO::Handle;
use test2db;   (module from topeq for testing)

open IN, "< /data14/docs/konvdocs/ebookkto.txt.old";

while (<IN>)
{
	chomp;
	@val = split(/\:/);
	@ins = ("tab1","tab2");	

		&insert_tab ("testdb","testtab", "@ins","@val");
}
close IN;