rename "$_[0]/$_", "$_[0]/\L$_"
    or die "Couldn't rename:\n$!\n";