Select Code to Download

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

    add_to_tar($tar, 'baz', '/foo/bar');

    add_to_tar($tar, '/foo/bar/baz', '/foo/bar');

    sub add_to_tar {
        my($tar, $thing, $base) = @_;
...
            find $code, $thing;
        }
    }