use strict;
use File::Spec;
use File::Spec::Unix;

my $path = "C:\\Dir1\\Dir2";

print "Path before change :$path:\n";

$path =~ s/\\/\//g;

print "Path after change :$path:\n";

#####################################

my $fs_path = File::Spec->catdir('C:','Dir1','Dir2');

print "Path before change :$fs_path:\n";

$fs_path=File::Spec::Unix->catdir($fs_path);

print "Path after change :$fs_path:\n";