#!/usr/bin/perl use warnings; use strict; use File::Find; use File::Copy; die "Usage: $0 <dir> [<dir>...] \n" unless @ARGV; foreach (@ARGV) { die "'$_' does not exist \n" unless -e $_; } sub lcfile { print "$File::Find::dir - $_ \n"; move ($_, lc $_); } finddepth (\&lcfile, @ARGV);