setFilenameUcfirst

#!/usr/bin/perl
#
# Rename recursive all files from given folder to upper case first
# Use setFilenameUcfirst.pl /path/to/my/template/folder/
#
# @File setFilenameUcfirst.pl
# @Author Claus Fassing
# @Created 28.11.2014 14:14:29
#

use File::stat;
use File::Basename;
use strict;

my @files;

&getFiles(@ARGV);

foreach (@files) {
    rename($_, dirname($_) . "/" . ucfirst(basename($_)) );
}


sub getFiles {
    local *DH;
    my ( $item, $path );
    my $dir = shift;
    opendir( DH, $dir ) or return;
    while ( $item = readdir(DH) ) {
        next if ( -d $item );

        $path = (
            ( $dir =~ /\/$/ ) ? ( $dir . $item ) : ( $dir . '/' . $item ) );

        push( @files, $path ) if ( -f $path );
        getFiles($path) if ( -d $path );
    }
    closedir(DH);
}