open(READ,'<',$file) || die "Fehler beim oeffnen ($!)";