I realized I am checking for modified date twice. I have corrected my code. 

 #!/usr/bin/perl
use strict;
use warnings;
use File::stat;
use Text::CSV_XS;
use IO::File;

 my $dirname = "Daily_QoS_CPD_link";
 opendir(DIR, $dirname) or die "Not able to open $dirname $!";
 
# Create an array of files in directory
 my @dir =  grep /\.csv/,  $dirname ne '.' && $dirname ne '..', readdi
+r DIR;
           rewinddir(DIR);
          
           
# create a list of csv's for today into a text file.
 my $One_day = 86400;
 foreach my $list (@dir){         
 my $diff = time()-stat("$dirname/$list")->mtime;
          if( $One_day > $diff){  
               open FILE, ">>CPD_Files.txt" or die "Not able to open f
+ile $!";
                     print FILE  "$list\n";
          }
}       
 closedir DIR;
 close FILE;

[download]

In reply to Re: Read Directory and getlines in .csv by Dipepper
in thread Read Directory and getlines in .csv by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.