use warnings;
use strict;
use Path::Class qw/foreign_file foreign_dir/;

my $file = foreign_file('Win32', "..\\Hello\\World.txt");
print $file->as_foreign('Unix'), "\n"; # prints "../Hello/World.txt"