$ cat > fred
$x = 'one_dir\two_dir';
$y = "one_dir\two_dir";
$ perl -MO=Deparse fred
$x = 'one_dir\\two_dir';
$y = "one_dir\two_dir";
fred syntax OK

##</code><code>##

my $dsn = "dbi:SQLite:\Q$path";