#!/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;
}