I've have a program that copies files from a log directory to an archive directory and appends a date stamp to the end of the filename. After looking at some other code locally I used this sub to create the datestamp:

sub get_time_stamp() {
   my @tan=Today_and_Now();
   my $stamp=join '', @tan[0..4];
   return $stamp;
 }
[download]

Unfortunately this is giving me YYYYMDDHHMM instead of YYYYMMDDHHMM. Is there a more effective way of getting the string I want than padding the output of  Today_and_Now?