$handle = unpack "V", $handle;

....