my $now = time;
for my $i (0..9) {
    print "$i days ago... ", scalar localtime $now - $i * 86400, "\n";
}