Select Code to Download

# "my" variable $date masks earlier declaration in same scope.

sub calcDate {
    my $offset = shift;
...
    return sprintf "%04s-%02s-%02s", $year + 1900,
        $mon + 1, $mday;
}