Select Code to Download

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

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

if ( ref( $fd ) )
...
                        $handle = $fd;
                }
        }