#!/usr/bin/perl

use v5.10 ;
use strict;
use warnings ;
use Win32::LongPath ;

my $d = Win32::LongPath->new() ;
$d->opendirL(".") or die "Can't open directory:  $!\n" ;
for my $file ($d->readdirL())
{   say $file ; }
$d->renameL("testfile.txt", "testedfile.txt") or die "didn't rename! $!";
exit ;

##</code><code>##

D:\Desktop\test>rename.pl
.
..
rename.pl
testfile.txt
didn't rename!  at D:\Desktop\test\Onefile\test\rename.pl line 12.