C:>cat fakeOS.pl BEGIN { $^O = 'Unix'; } use strict; use warnings; use Cwd 'abs_path'; my $abs_path = abs_path('.'); print $abs_path; C:>perl fakeOS.pl C:\EX_D\ulisseDUE C:>perl -MTest::Harness fakeOS.pl C:/EX_D/ulisseDUE