(C) 2003, Tim Maher       1-18       www.TeachMePerl.com
File Lower-Caser
Source Code
.
.
 #! /usr/bin/perl -w
 .
 use Shell::POSIX::Select ( '$Eof' ,
     prompt => 'Enter number (^D to exit):'
 );
 .
  # Rename selected files to lowercase
  # while restarts select to update menu
 while ( @files=<*[A-Z]*> ) {
    select ( @files ) {
        if (rename $_, "\L$_") { last ; }
        else {
            warn "rename of $_ failed, $!\n";
        }
    } $Eof  and  last ;    # Handle <^D> to prompt
 }