Select Code to Download

sub is_leap_year {
    my $year = shift;

...
    }
    return undef;
}

$today = localtime;

...
$yesterday = localtime;

print "Yesterday's date was $yesterday\n";