sub cbFileFind
{
    my $printable_name = $File::Find::name;
    $printable_name =~ s/([^ -~])/sprintf("\\x{%02x}",ord($1))/eg;
    print $printable_name, "\n";
}