##! /usr/local/bin/perl
use strict;
use warnings;
use File::Copy;
my $sleep   = 10;          
my $dirname = "Directory A";
my $dirname2 = "Directory B";
my $filterstring = "\\.jpg\$";
while (1) {
opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
foreach my $file (readdir (DIR)) {
   next if not $file =~ m/$filterstring/;

   $file = $dirname.'/'.$file;
   print "found $file, mtime: ".(-M $file)."\n";
  
   if (-f $file && (0.0005 > -M $file)){
      my $capture = $dirname . $file;   
    my $qc = $dirname2;

    print "Copying $file to $qc\n";
    copy($file, $qc);
reset;
   }
  
 
}
  reset ;
   closedir (DIR);
  sleep $sleep;
1;
}