my $linux_path = '/usr/bin/perl';

     my $win_path   = 'c:\scripts\my.log';

     my $old_macos  = 'Hard Drive:My Folder:My Document';  #dunno

##</code><code>##

$path = File::Spec->catfile( @directories, $filename );