#!perl

use strict;
use warnings;
use utf8;
use FindBin qw/$Bin/;
use Data::Dumper qw/Dumper/;
use Text::CSV;
use DBI;
use SQL::Abstract;

my $dbh = DBI->connect('DBI:mysql:ling:127.0.0.1;mysql_enable_utf8=1', 'test', 'test');
die DBI::errstr() unless $dbh;

my $file = 'source.csv';
my $csv = Text::CSV->new ({
	sep_char => ';',
	empty_is_undef => 1,
	binary => 1,
}) or die "Cannot use CSV: ".Text::CSV->error_diag ();

open my $fh, "<:encoding(utf8)", $file or die "$file: $!";

while ( my $row = $csv->getline( $fh ) ) {
	
	# Absetzen des Import-Statements für 1 Zeile hier
	
}

$csv->eof or $csv->error_diag();
close $fh;

exit(0);