open(LS,"ls /root/FileMaker/data/images/|");
while(<LS>)
{
  chomp;
  if ($_ =~ /jpg/i)
  {
    print "$_\n";
    `cp /root/FileMaker/data/images/$_ ./`;
  }
}