This snippet from the docs...

$zip = new Archive::Zip("file.zip");
$fh  = new Archive::Zip::MemberRead($zip, "subdir/abc.txt");
[download]

...shows that the 1st argument to MemberRead() should be an Archive::Zip object.

This means your line $fh  = new Archive::Zip::MemberRead($zipfile, "./$zpname"); should be changed to $fh  = new Archive::Zip::MemberRead($zip, "./$zpname"); Also, the code would be a lot easier to understand - and debug - if you used use strict; and used variable scoping.