Select Code to Download

    #!/usr/bin/perl -wl

...
    other/testhere.htm
    test/dir/z6.htm

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