my $fh = IO::File->new_tmpfile or print "Unable to make new temp file: $!";

            $member->extractToFileHandle($fh);
            if ($member->extractToFileHandle($fh) != 0){
                print "Error in $archivedir$filename\n";
                next;
            }
            seek($fh, 0, 0);
            binmode($fh);