my ($day, $month, $year, $filename);
(undef, undef, undef, $day, $month, $year, undef) = localtime(time() - (24*60*60));
$filename = sprintf("%02d-%02d-%04d.txt", $day, $month+1, $year+1900);