opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);
$size = 0;
foreach my $part (@parts) {
opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);
$size = 0;
foreach my $part (@parts) {