Select Code to Download

my $now= time();
my($y,$m,$d)= (localtime(
    $now + 60*60*(12-(localtime($now))[2])
...
))[5,4,3];
print sprintf "%04d-%02d-%02d", 1900+$y, 1+$m, $d;
print $/;