@date = unpack 'n C6 a C2', $octets;

##</code><code>##

$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