while (<$fh> && $pruef ==0) {
		$_= <$fh>;