opendir (DH, "/temp_gif") or die "unable $!";

foreach (readdir DH) {

($number, $gif) = split (/\./);
print "$number\n";
$numbers_replace =$number+338;
 $gif_replace = "GIF";


rename ($number.gif, $numbers_replace.GIF);