Refactor:

my $result = CPANBaker->tar(
    filelist => [ ... ],
# ------- optional
    compress => 'gzip' , 'bzip2',
    filename => ... ,
    sudo => 1,
    verbose => 1,2,3
    exclude => [ qw[  ] ],
    exclude_listfile => ...,

    tarbin => ... ,
    taropts => ... ,
    preserve_permission => 0,
);