my $formatted_time =
    sprintf "%02d/%02d/%04d %02d:%02d:%02d",
        $time[4] + 1, $time[3], $time[5] + 1900,
        $time[2], $time[1], $time[0];