Select Code to Download

#!d:/perl/bin/perl -w

...
    return unless (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)
+);
    rename $_, lc($_);
}