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;
}