#!/usr/bin/perl -w 
my @gziplist = (  "msg.1","msg.2","msg.3","msg.4","msg.5","msg.6","msg.7","msg.8", "msg.9","msg.10"); 
my $pid; 
my $file; 
my @children; 
my $dead =0;