#!/usr/bin/perl
#

  while ($fname = <*.gal.gz>) {
    $cmd = "gunzip $fname";
    printf "$cmd\n";
    $output = `$cmd`;
    if ($output) {print "$output";}
  }
