open(IN,'<'.$f) || die "Can not open file $datei: $!";