my ($day, $month, $year) = strftime "%d %m %Y", time();