my $dir = '/temp_gif';
opendir (DH, $dir) or die "unable $!";

foreach (readdir DH) {
  my ($number) = split (/\./);
  print "$number\n";
  $number += 338;

  rename ("$dir/$_", "$dir/$number.GIF") or die $!;
}