Select Code to Download

sub get_date_by_week {
    my $week = shift || 1;
...
    my $wc = $week * 7 - $w;
    return strftime($pattern, gmtime($t + $wc * 24 * 3600));
}