($pt->{version},$pt->{reversion},$pt->{build}) = unpack "CCS", pack "l", $long;