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
...
}

##</code><code>##

Variable "$tar" will not stay shared at web_admin.pl line 394.

##</code><code>##

/long/full/path/to/webdir
/long/full/path/to/webdir/www
...

##</code><code>##

webdir/
webdir/www
webdir/cgi-bin
...