@file_change = stat($file);
$time2 = $file_change[9];
# (day = 86400, week = 604800)
$change = (time - $time2);
push @backup, $file if ($change < 604800) ;