my $SH = IO::Scalar->new(); $SH->open (\$res->content()); # my $SH = tie *ZIP, 'IO::Scalar', \$res->content(); my $zip = Archive::Zip->new(); die ("Error reading Zip File : $!\n") if $zip->read ( \$SH ) != AZ_OK; # die ("Error reading Zip File : $!\n") if $zip->read ( \*ZIP ) != AZ_OK;