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