use strict; use warnings; my @array_lt = (localtime)[5,4,3,2,1,0]; $array_lt[0]+=1900; $array_lt[1]+=1; my $nowtime = sprintf("%04u/%02u/%02u %02u:%02u%02u", @array_lt); print("$nowtime/n");