my $dir = 'c:\this\is\a\dir\';
print "$dir\n";