[root@ems NSN_SGSN]# perl gun.pl
$VAR1 = [
          'generate_ASR_PSR_report.pl.gz',
          'generate_nsn_sgsn_report.pl.gz'
        ];
Couldn't read [gzip -cd "generate_ASR_PSR_report.pl.gz"]: No such file or directory at gun.pl line 20.


##</code><code>##


#!/usr/bin/perl

use warnings;
use strict;
use File::Glob ':bsd_glob';

use Archive::Tar;
use Data::Dumper;

my $cdr_dir="/root/prac/NSN_SGSN";

my @list = bsd_glob('g*.gz');

print Dumper \@list;

foreach my $file (@list)
{

        my $cmd = sprintf 'gzip -cd "%s"', $file;
        open my $fh, $cmd  or die "Couldn't read [$cmd]: $!";
        while ( my $line = <$fh> )
        {
                print $line;
        }
        close $fh;
}