opendir (PICS, "path/to/pics") || die "";
while ($name = readdir PICS) {
     if ($name =~ m/bmp$/i) {
     $numb++;
      rename $name, $numb . "jpg";
     }
  }