# Don't expand metacharacters
    $dir =~ s/\[/\\\[/g;
    $dir =~ s/\]/\\\]/g;
    $dir =~ s/\{/\\\}/g;
    $dir =~ s/\~/\\\~/g;
    $dir =~ s/\*/\\\*/g;
    $dir =~ s/\?/\\\?/g;