sub del_web() {
...
  my($tar) = Archive::Tar->new();

  $tar->read("$web_to_del.tar.gz",1);

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

  $tar->write("$defunct_dir/$web_to_del.tar.gz",1);

  sub archive { $tar->add_files($File::Find::name); } # line 394
...
}