Select Code to Download

use POSIX;
use Time::Local;
...
    $dt[3] = 1;
    return strftime("%d %b %Y", @dt) . " - $ret";
}