title: how to read all file names from a given directory using perl?
body: <p>friends i 've this code which read file name from a directory and print those names</p>
  
  <pre><code>opendir DIR1,  "defaults" or die "cannot open dir: $!";#open the given dir
          my @default_files=readdir DIR1;
          foreach my $fls(@default_files){ 
                          chomp($fls); 
                          print "$fls\n";
             }
  </code></pre>
  
  <p>when i run the above code i've got </p>
  
  <pre><code>.
  ..
  PGR.csv
  report.csv
  std_headers.csv
  tab_name.txt
  </code></pre>
  
  <p>'m confused what is first two lines?
  thanks in advance</p>