my $tar = Archive::Tar->new;
    add_to_tar($tar, $thing_to_add, $base_dir);
    $tar->write($gz, 9);