Select Code to Download

#!/usr/bin/perl
use strict;
...
my $out   = join(',', $set->D($set->holes()));

print $out, "\n";

OUTPUT:

1-3,5-7,9