#!/usr/bin/perl -w 


@pngfiles = glob("/home/virtual/site7/fst/var/www/html/tc_pics/diving/*.JPG"); # load all png file names into an array 
foreach $pngfile (@pngfiles) { # go through array 
   $jpgfile = $pngfile;
   $jpgfile =~ s/\.JPG/\.jpg/; # replace .png with .jpg 
   system ("/usr/bin/convert $pngfile $jpgfile"); # run convert 
   print("converted $pngfile to $jpgfile\n");
}