#!wperl

use strict;
use Win32;

my ($DirItem);
my ($Formatted);

opendir(DIR, $ARGV[0]) || Fail;
	my @DirList = readdir(DIR);
closedir DIR;

foreach $DirItem (@DirList)
	{
	$Formatted = $DirItem . "z";
	if ($DirItem ne "." && $DirItem ne "..")
		{
		rename($DirItem,$Formatted);
		}	
	}