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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

# function to create tarball and backup changed files;
sub backup {
        $files = "@backup";
        system ("tar -czvf backup.tgz $files") ;

}

# run backup function
backup();