could be this?

while(<$dir/*>){push @old, $_ if (time-(stat $_)[9]) >= ($day * 86400)
+ && $_ ne "lost+found"}
[download]