Mine beats yours -- it'll be right at least once, no exceptions. :)

($a,$a,$a,$d,$m,$y)=localtime(time+24*60*60); 
print $y+1900, "-", $m+1, "-$d";
[download]