Select Code to Download

sub all_segments {
    my $self = shift;
...
    # do another thing if $mode eq 'gap'
    return \@segments;
}