Select Code to Download

sub max { # Numbers.
    my $max = shift;
    foreach ( @_ ) { $max = $_ if $_ > $max }
    return $max;
}

foreach ( keys %{$url{'monday'}} ) { $now = $_ if $_ > $now }