Help for this page

Select Code to Download

Select or download this

use Set::Scalar ;

...
my $u = $s->intersection( $t ) ;

print $u, "\n" ;

Select or download this
```
(a c)
```