#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use Win32;
use Win32::Unicode qw/ statW /;

my $path = 'Z:/123/xyz/xyz/xyz_xyz_xyz_/01_abc';

dd( $path );
dd({ -ansi, Win32::GetANSIPathName( $path ) });
dd({ -full, scalar Win32::GetFullPathName( $path ) });
dd({ -short, Win32::GetShortPathName( $path ) });
dd( statW( $path ) );
__END__