sub pack {
        my $self=shift;
        my $record=join(':', @{$self}{@permitted});
        return $record;
  }