use File::Spec; $x=File::Spec->catfile('a', 'b', 'c');
or
use File::Spec::Functions; $x = catfile('a', 'b', 'c');
returns