Select Code to Download

 my $status = `gzip -cd filename 2>&1`;
   print "The status is:$status\n";
...
            print " ERROR : $file is corrupt. \n";
      return 0;
   }

use IO::Pipe;
my @command =qw(gzip -cd filename);
...
        {
         print "problem in undef or closing:$? with status:$!";
        }