use strict;
use File::Find;


my @directories = (".", "I:\\temp\\");
my @foun0dfiles;
print "Please drag error list \n\t\t";
chop($jpglist=<STDIN>);

open (JPG, "$jpglist") || die "can't open JPG";
@jpeg = <JPG>;
close(JPG);

chomp(@jpeg)
my $pattern = join("|", @jpeg);

find( sub { push @foundfiles, $File::Find::name if /$pattern/o }, @directories );

open (OUT, ">>I:\\temp\\Outlist1.txt") || die "can't open jpgfiles";
print OUT join("\n",@foundfiles), "\n";
close(OUT);