##
SKMDSK06::T:\>set user
USERDOMAIN=SKMDSK06
USERDOMAIN_ROAMINGPROFILE=SKMDSK06
USERNAME=Steve
USERPROFILE=C:\Users\Steve
##
##
SKMDSK06::T:\>type test01.pl
use strict;
use Path::Tiny;
my $path = path("/a/b/c/$ENV{USER}")->absolute;
print "$path\n";
##
##
SKMDSK06::T:\>perl test01.pl
T:/a/b/c
SKMDSK06::T:\>