# fake_os.pl

BEGIN {
  $^O = 'Unix';
}

use strict;
use warnings;
use File::Spec;

my $x = File::Spec->catfile('a', 'b', 'c');

print $x;