Select Code to Download

SKMDSK06::T:\>perl -V | findstr uname
    uname='Win32 strawberry-perl 5.32.0.1 #1 Sun Aug  2 19:46:04 2020 
+x64'

SKMDSK06::T:\>set user
USERDOMAIN=SKMDSK06
USERDOMAIN_ROAMINGPROFILE=SKMDSK06
USERNAME=Steve
USERPROFILE=C:\Users\Steve

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

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

print "$path\n";

SKMDSK06::T:\>perl test01.pl
T:/a/b/c

SKMDSK06::T:\>