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