Select Code to Download

use File::Find;

find(\&wanted, '/temp_gif');
...

   rename($File::Find::name, $new_name) or die $!;
}