Select Code to Download

#!/usr/bin/perl
use strict;
...
my $set = Set::IntSpan->new(\@arr);

print join ' ', $set->holes->elements;