Select Code to Download

    my ($toc) = grep { $_->name =~ m{/toc$} } $tar->get_files;

    my $toc = undef;
    for my $file ( $tar->get_files ) {
...
        }
    }
    ( defined $toc ) or do { warn "no toc file in $wdir/$tarball\n"; n
+ext };