Select Code to Download

    use Set::Scalar;
    $s = Set::Scalar->new;
...
    $e = $s->symmetric_difference($t);
    $v = $s->unique($t);
    $c = $s->complement;

  use Set::IntSpan qw(grep_set map_set);

...
  $x_set = xor        $set $set_spec;
  $d_set = diff       $set $set_spec;
  $c_set = complement $set;