Help for this page
$bar = ".txt"; $date = $date.$bar;
open(INF,">$date") or dienice("Ej ....datum! $date: $! \n");