./web_dir
./cgi-bin
./www
./etc

##</code><code>##

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

##</code><code>##

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