SKMDSK06::T:\>type test01.pl
use strict;

use Path::Tiny;

my $path = path("/a/b/c/$ENV{USER}")->absolute;

print "$path\n";