Can't extract after read content about archive-zip-simplezip HOT 5 CLOSED

# echo abcd | zip /tmp/x.zip -
updating: - (stored 0%)

use warnings;
use strict;

use Archive::Zip::SimpleUnzip qw($SimpleUnzipError) ;
my $zipfile = "/tmp/x.zip";
my $z = new Archive::Zip::SimpleUnzip $zipfile
    or die "Cannot open zip file: $SimpleUnzipError\n" ;
while (my $member = $z->next())
{

    my $name = $member->name();
    print "member $name\n" ;

    my $fh = $member->open();
    while (<$fh>)
    {
    }

    $member->extract("out") 
        or die "cannot extact: $SimpleUnzipError\n";
}

# ls -l out
-rw-rw-r-- 1 root root 0 Oct 24 16:45 out

use feature qw/say/;
my $zip = new Archive::Zip::SimpleUnzip($zipfile)
	or die "Cannot open zip file: $SimpleUnzipError\n" ;
my $member = $zip->member('example.txt');
say $member->content;  # need to check content
$member->extract($path);  # inside extract() content is empty, file extracted empty