title: Perl: Copy file from one location to another
body: <p>This is just a small script I am running to continuous loop to check a directory and move every file that is there. This code works and i am running it in the background processes. But for some reason I am getting the following error: <code>'/home/srvc_ibdcoe_pcdev/Niall_Test/new_dir/..' and '/home/srvc_ibdcoe_pcdev/Niall_Test/perl_files/..' are identical (not copied) at move2.pl line 27</code></p>
  
  <p>any idea why it is telling me it is identical even though the paths are different?</p>
  
  <p>Many thanks</p>
  
  <p><strong>script below</strong></p>
  
  <pre><code>#!/usr/bin/perl
  use diagnostics;
  use strict;
  use warnings;
  
  use File::Copy;
  
  my $poll_cycle = 10;
  my $dest_dir = "/home/srvc_ibdcoe_pcdev/Niall_Test/perl_files";
  
  while (1) {
      sleep $poll_cycle;
  
      my $dirname = '/home/srvc_ibdcoe_pcdev/Niall_Test/new_dir';
  
      opendir my $dh, $dirname
          or die "Can't open directory '$dirname' for reading: $!";
  
      my @files = readdir $dh;
      closedir $dh;
  
      if ( grep( !/^[.][.]?$/, @files ) &gt; 0 ) {
          print "Dir is not empty\n";
  
          foreach my $target (@files) {
              # Move file
              move("$dirname/$target", "$dest_dir/$target");
  
      }
  }
  
  }
  </code></pre>