$ perl -E 'my @range = ( 20170701 ... 20170704 ); say for @range;'
20170701
20170702
20170703
20170704