# 1. INSERT INTO TABLE
# 2. SELECT FROM TABLE


sub insert_tab
{
	$db		= @_[0];
	$table  	= @_[1];
	@TAB    	= split (/ /,@_[2]);
	@VALUES 	= split (/ /,@_[3]);
	@VAL 		= ();
	
	foreach $i (@VALUES)
	{
		push (@VAL,"\'".$i."\'");	
	}

	$fieldlist 	= join (",", @TAB); 
	$fieldvalues	= join (",", @VAL);

	$con	        = "DBI:mysql:$db";
	$user           = "root";
	$passwort       = "pwd";
	
	$dbh = DBI->connect("$con","$user","$passwort") || die "DB connection not made: $DBI_errstr";

	$sql = qq{ insert into $table ($fieldlist) values ($fieldvalues) on duplicate key update ??  };
	#$sql = qq{ insert into $table ($fieldlist) values ($fieldvalues) };

	$sth = $dbh->prepare($sql);
	$sth->execute();
	$sth->finish();
	$dbh->disconnect();
}
return 1;