use Compress::Zlib; my $gz = gzopen("$system_config{sendmail_log_dir}$_") || warn "Could not open $system_config{sendmail_log_dir}$_ for reading: $!\n"; my $line; while($gz->gzreadline($line)) { push (@logfile_contents,$line); } $gz->gzclose();