Select Code to Download

use strict;
use warnings;
...
my $end=7;

print substr $seq, $start - 1, ($end - $start) + 1;

EFG