#!/usr/bin/perl
# Core Module
use strict;
use warnings;
use utf8;
use open ':utf8';
use open ':std';
use Fatal qw(open close);
use English '-no-match-vars';
# CPAN Module
#use Smart::Comments;
use PerlIO::gzip;

my $filename = 'textfile.txt.gz';

eval {
    open my $file, '<:gzip', $filename;
    while ( my $line = <$file> ) {
        print $line;
    }
    close $file;
};
die $EVAL_ERROR if $EVAL_ERROR;