Is there any way to read contents inside the zip file without unzipping and without Zip.pm installed ?

#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;

my $zip_file = q|test.zip|;
my $cmd = q|/usr/bin/zless|;

my $content = qx|$cmd $zip_file|;
print $content;
[download]