#!/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('*.gz');
print Dumper \@list;

foreach my $file (@list)
{
      #open gz file, read line by line
}