Probably not new, but it is to me - a quick way to create a date string w/o using modules, etc.

my $date_str = 
  sprintf q{%02d%s%d}, 
  (split /\s+/,localtime)[2,1,4]
;
[download]