$bar = ".txt";
$date = $date.$bar;

##</code><code>##

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