my $directory = "C:\\test\\test2";

$directory  =~ s/\//\\/g;
	if ($directory  !~ /^\\\\?\\/ ) {$directoryUNC  ="\\\\?\\".$directory };
	$len = length($directoryUNC );
	$directoryshort  = Win32::GetShortPathName($directoryUNC );
	print "short name for $directory  is $directoryshort \n";
	chdir "$directoryshort" or die "Failed to go to $directoryshort: $!";
	$FolderName = getcwd();
opendir DIR, $FolderName or die "Cannot open directory: $!";
	while ( defined( my $file = readdir(DIR) ) ) {
	$fileSize= -s $file;
	print "file size for $file is $fileSize\n";
	}