open FILE, "< $filename";
seek FILE, $letzte_position_zB_in_datenbank_gemerkt, 0;
while (my $line = <FILE>)
{ schreibe_daten_in_datenbank($line);
}
merke_letzte_position_in_datenbank(tell FILE);
close FILE;