...
chdir("$web_base");
find(\&archive, "$web_to_del");
...