Select Code to Download

my (@file_change,@backup);
my ($time2,$change,$file,$files);

open my $report, ">", "report.txt";

for $file (</tmp/*>) {

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

# function to create tarball and backup changed files;
sub backup {
...

# run backup function
backup();