my ($major, $minor, $patch) = unpack 'CCC', $^V;