#!/usr/bin/perl -w

use strict;

my ($from, $to);

die "Invalid args\n" unless @ARGV;

unless (($from, $to) = $ARGV[0] =~ /(\d{8})-(\d{8})/) {
  die "Invalid args\n";
}

my $dir = '.';
opendir(DIR, $dir) or die "Can't open $dir: $!\n";

my @files =
  grep { /(\d{8})/ && $1 >= $from && $1 <= $to } readdir DIR;

print "@files\n";