Select Code to Download

my $last_seq;

...
}

print("\n") if defined($last_seq);

sub extractseq {
    my ($seq, $ranges) = @_;
...
}

extractseq($last_seq, \@ranges) if defined($last_seq);

my %ranges_by_seq;

...
    )
        and die("system: $?/$!\n");
}