# you presented the octets as a string of hex numbers.
# I'll do the same, then strip out the spaces, and pack
# it into binary format
$octets = "07 D8 06 01 01 27 3B 00";
$octets =~ s/ //g;
$octets = pack "H*", $octets;

# now $octets is in a form as you would get back from snmp,
# so we unpack with the template I gave earlier:
@date = unpack 'n C6 a C2', $octets;

# and print
$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date;
print $datetime;