#!wperl

use strict;
use Win32;
sub Recurse;

Recurse ($ARGV[0]);

sub Recurse
{
  my ($DirItem);
  my ($Formatted);
  my ($PWD);

($PWD) = @_;

opendir(DIR, $PWD);
    my @DirList = readdir(DIR);
closedir DIR;
foreach $DirItem (@DirList)
    {
    $Formatted = $DirItem . "z";
    if ( -d $DirItem &&$DirItem ne "." && $DirItem ne "..")
    {
    &Recurse ($PWD . "\\" . $DirItem);
    }
    if ($DirItem ne "." && $DirItem ne "..")
        {
           rename("$PWD\\$DirItem","$PWD\\$Formatted");
       }    
    }
}