unless ( -e "\L$_[0]" ) {
    rename "$_[0]","\L$_[0]";
}
else
{
    warn qq(been too afraid to move "$_[0]" to "\L$_[0]\E" - a file of that name already exists.\n);
}