use Cwd;
my $dir = cwd()."/";
$dir =~ s(/){\\}g;