Select Code to Download

use strict;
use warnings;
...
         if ($month == 04 and $day <=21) { print "Filename: $_\n"; }
    }
}

my @filenames = parse_dir($ls);

...
         if ($month == 04 and $day <=21) { print "Filename: $_\n"; }
    }
}