Select Code to Download

sub print_sequence {
my($sequence, $length) = @_;
for (my $pos = 0; $pos < length($sequence); $pos +=
...
print substr($sequence, $pos, $length), "\n";
}
}

print"Cannot open file\"$output\".\n\n";
exit;