use Path::Class;
foreach $s ('x/y','x\y') {
  $dir=Path::Class:Dir->new($s)->as_foreign('Unix');
  print "$dir\n";
}