my $timestamp = sprintf "%04d" . "%02d" x 5, @tm[ reverse 0..5];