The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use Cwd;
my $CWD = getcwd();
$CWD =~ s!^C:!!i;
$CWD =~ s!/!\\!g;
$CWD;