Select Code to Download

use Archive::Zip;

my $zip = Archive::Zip->new("yourfile.zip");

my @members = $zip->members();

foreach my $member (@members) {
  # ...
}

#!/usr/bin/perl -T

...
if ($datediff > (60 * 60 * 24 * 30 * 3)) {
  # You need a new file
}