Select Code to Download

sub del_web() {
  ...
...
  $tar->add_files($File::Find::name); 
}

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