Select Code to Download

# Use the object oriented version of stat
use File::stat;
...
finishcleaning:
    return $ok;
}

# Convert age (in days) to seconds
my $maxage = $maxagedays * 3600 * 24; # Convert days to seconds
...
# Add files to the "@todelete" list with full filename
push @todelete, "$dir/$fname";