#!/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 ;