open(INF,">$date") or dienice("Ej ....datum! $date: $! \n");