print $fp "object-group network $object \n";