($a,$a,$a,$d,$m,$y)=localtime(time+24*60*60); print $y+1900, "-", $m+1, "-$d"; [download]
In reply to Tomorrow. by Falkkin in thread Perl 6 release date by Juerd