if (index($file, $root) == 0) {
        print substr $file, length $root;
    }