And your question is...?

Maybe this helps, maybe not:

my @now = localtime();
$now[4]++; $now[5] += 1900;
$_ < 10 and $_ = "0$_" for @now[0..4];

my $ddmmyyyy = $now[3] . $now[4] . $now[5];
my $hhmmss   = $now[2] . $now[1] . $now[0];
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]