require File::Spec::Unix;
my $x = File::Spec::Unix->catdir('foo','bar').'/';