use strict;
use warnings;
my $t   = time;
my $spd = 24*60*60;

printf "%d\t%s\t%s\n", -s, scalar(localtime($t+$spd*-M)), $_
  for <*.{log,txt,sql}>;