unzip -l backup.zip 
Archive:  backup.zip
  Length      Date    Time    Name
---------  ---------- -----   ----
        1  2010-02-05 22:29   /home/user/a/a.txt
        1  2010-02-05 22:28   /home/user/b/b.txt
        1  2010-02-05 22:29   /home/user/c/c.txt
---------                     -------
        3                     3 files

##</code><code>##

#! /usr/bin/perl
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new('/home/user/d/backup.zip');
print $zip->memberNames();

##</code><code>##

perl test_script.pl
/home/user/a/a.txt/home/user/b/b.txt/home/user/c/c.txt