$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone

$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info