Select Code to Download

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