#!/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;