perl -MEncode -E "say encode( 'UTF-8', Win32::GetLongPathName( $_ ) ) for glob '*'"