Just my 0.2 XP's worth:

sub date {
        my($sec,$min,$h,$mday,$month,$year) = localtime(time);
        $year  += 1900;   # 2-digit year (eg. 101 = 2001)
        $month += 1;      # month is counted from 0

        return sprintf "%02d-%02d-%04d", $month, $mday, $year;
}
[download]

PS: if your audience is international: don't use that format. I'm from Austria, I'm used to interpreting xx-xx-xxxx as DD-MM-YYYY. You might want to use YYYY-MM-DD instead, to avoid this confusion.

--
Brigitte    'I never met a chocolate I didnt like'    Jellinek
http://www.horus.com/~bjelli/         http://perlwelt.horus.at