my @t=(localtime);
$t[4]++;
$t[5] += 1900;
my $dt=sprintf "%02u/%02u/%02u %02u:%02u:%02u",@t[3,4,5,2,1,0];