# perl -Mstrict -Mwarnings -MPath::Tiny -E \
     'say join qq[\n],
            map path( $_ )->absolute(),
               q[~/tmp],
               q[~tester/tmp],
               qq[/tmp/$ENV{USER}]
     '
/home/parv/tmp
/home/tester/tmp
/tmp/parv