#!/usr/bin/perl
#

  while ( $fname=<*.chain> ) {
    $cmd = sprintf "gzip -f %s",$fname;
    printf "$cmd\n";
    `$cmd`;

  }