А я опять с перлом.

[br0ziliy]

Блин, ну это совсем за гранью добра и зла по-моему.
Всего-то надо получить что-то вроде 2014-06-02 (то есть 6 июня 2014 года):

(undef, undef, undef, my $mday, my $mon, my $year, undef, undef, undef) = localtime(time);
my $datestamp = ($year+1900)."-".($mon+1 > 9 ? $mon+1 : "0".($mon+1))."-".($mday > 9 ? $mday : "0".$mday);