if (eval { require IO::Compress::Gzip } ) {
IO::Compress::Gzip->import ( qw (gzip $GzipError) );
$status = gzip "${FileName}" => "${FileName}.gz" or die "gzip failed: $GzipError\n";