my $files = `find ./Images | egrep '\.jpe?g$'`;
my @files = split(/\n/, $files);