foreach (<FILE>){

chomp $_;
(my @spalten) = split (/\,/,$_);
      
RRDs::update($RRD, "$spalten[0]:$spalten[3]") or die "Cannot update rrd ($!)";
}