$ cat 632370.pl
use strict;
use warnings;
use File::Spec::Functions;
my $root = File::Spec->rootdir();
my $home = catfile( $root, qw ( t3file3 datools tools MTP ) );
my $logfile = catfile ( $home, q{logappend.txt} );
print $home;
print $logfile;
__END__

##</code><code>##

# Linux
$ perl -l 632370.pl
/t3file3/datools/tools/MTP
/t3file3/datools/tools/MTP/logappend.txt

##</code><code>##

# Win32
C:\src\perl\perlmonks\632370>perl -l 632370.pl
\t3file3\datools\tools\MTP
\t3file3\datools\tools\MTP\logappend.txt