Select Code to Download

use strict;
use warnings;
...
my $dt2 = Mktime($yr, $mo, $day, $hr, $min, $sec);

print $dt2 - $dt1, "\n";

use strict;
use warnings;
...
}
# using pop clears out the array, which is helpful when looping
print pop(@dates_to_compare) - pop(@dates_to_compare), "\n";