Or, what seems to be simpler to me(although untested and probably not the best way):

while (-e $file_to_be_renamed)
{
    system("rename $file_to_be_renamed $desired_name");
    sleep 1;
}
[download]