# thezip's method:
$fn = sprintf "%s.%04d-%02d-%02d-%02d%02d%02d.ext",
              $base_name,
              (localtime)[5,4,3,2,1,0];