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;	

##</code><code>##

Can't call method "isa" on unblessed reference at
        /opt/perl/lib/site_perl/5.6.1/Archive/Zip.pm line 624 (#1)

##</code><code>##


if ( ref( $fd ) )
        {
                if ( $fd->isa( 'IO::Handle' ) or $fd->isa( 'GLOB' ) )
                {
                        $status = $handle->fdopen( $fd, @_ );
                }
                else
                {
                        $handle = $fd;
                }
        }