Select Code to Download

 #!/usr/bin/perl

use strict;
...
my $t = Data::Table::fromCSV("/root/prac/Telenor_CDR/SMSCDR_POSTPAID_1
+51013000000_10.84.0.29_AS.log", 0, undef, { delimiter => '\|'});
my $t2 = $t->group(["col1","col9"]);
print $t2->csv;