Help for this page

Select Code to Download

Select or download this

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

...
    return unless (-f _);
    rename $_, lc($_);
}