#!/usr/bin/perl --
use strict; use warnings;
use autodie qw/ system /;
my $ensemblUrl = '......r='; ## rearrange like this
my $start_range = 4953971;
my $end_range = 5753970;
my $range_increment = $end_range - $start_range;
for my $times ( 0 .. 10 ){
    my $range = $start_range.'-'.$end_range;
    my $rangefile = "$range.txt";
    system qw/ wget -c /,
        '-O', $rangefile,
        $ensemblUrl.$range ;
    $start_range = $end_range ;
    $end_range = $start_range + $range_increment;
}