#!/usr/bin/perl -wl

use Archive::Zip;

my $z = Archive::Zip->new("channel.zip");

my $seed = shift;
my $comment = "";

while ($seed) {
   my $mem = $z->memberNamed("$seed.txt");
   $comment .= $mem->fileComment();
   ($seed) = $mem->contents =~ /(\d+)$/g;
}

print $comment