You could lose one if structure (testing for html in last foreach loop) there by using grep in readdir.

# instead of
# @SUBDirList = readdir(SUBDIR);
@SUBDirList = grep {/html$/} readdir (SUBDIR);
[download]

Don't know how much speed it gives though :).