#! /star/Perl/bin/perl
open (LIST,"<fits.lis");
while (<LIST>){
chomp;
$filename=$_;
print "$filename:\n";
system ("nice /bin/gzip -1 $filename");
}