Select Code to Download

my $jsonc = read_file ('H:\Work\perl\latest\Scripts\logs\json.txt');
local $/ = "}";
...
    for (@{$data->{aaData}}) {
     #my print function
}

my $jsonc = read_file ('H:\Work\perl\latest\Scripts\logs\json.txt');
{
...
        }
    }
}

#!/usr/bin/env perl -l

...

    return 0;
}

$ cat json.txt
{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
...
+375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"
+1034,348"]]}

$ pm_epoch_from_json_3.pl
1375976271 1375976430 LAN D0:05:FE 172.20.30.2 1093 172.20.28.2 1330 1
+034,348
1375976271 1375976430 LAN D0:05:FE 172.20.30.2 1093 172.20.28.2 1330 1
+034,348