AssetDuJour is a project mainly written in Perl, it's free.

AssetDuJour is a plugin for Movable Type 4 and 5 to preselect the date « du jour » in the asset upload path.