#!/usr/bin/env perl -l

use strict;
use warnings;

use JSON;
use Time::Piece;

my $wanted_hour = 15;
my $wanted_minute = 13;
my $data = decode_json join '' => map { chomp; $_ } (<DATA>);

for (@{$data->{aaData}}) {
    print "@$_" if is_wanted_time(@$_[0,1]);
}

sub is_wanted_time {
    for (@_) {
        my $t = gmtime $_;
        return 1 if $t->hour == $wanted_hour && $t->min == $wanted_minute;
    }

    return 0;
} 

__DATA__
{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
remoteNode,srcIP,srcPort,destIP,destPort,egress,ingress","aaData":[["1375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"1034,348",
"0,0"],["1375976246","1375976404","LAN","D0:05:FE","172.20.30.2",1092,"172.20.28
.2",1327,"1034,348","0,0"],["1375976191","1375976381","LAN","D0:05:FE","172.20.3
0.2",1091,"172.20.28.2",1324,"1034,348","0,0"],["1375976171","1375976314","LAN",
"D0:05:FE","172.20.30.2",1090,"172.20.28.2",1321,"1034,348","0,0"],["1375976144"
,"1375976302","LAN","D0:05:FE","172.20.30.2",1089,"172.20.28.2",1319,"1034,348",
"0,0"],["1375975155","1375976089","LAN","D0:05:FE","172.20.30.2",1085,"172.20.28
.2",1278,"1034,348","0,0"],["1375975194","1375975352","LAN","D0:05:FE","172.20.3
0.2",1086,"172.20.28.2",1281,"1034,348","0,0"],["1375974693","1375974835","LAN",
"D0:05:FE","172.20.30.2",1083,"172.20.28.2",1271,"1034,348","0,0"],["1375974668"
,"1375974827","LAN","D0:05:FE","172.20.30.2",1081,"172.20.28.2",1268,"1034,348",
"0,0"],["1375974691","1375974821","LAN","D0:05:FE","172.20.30.2",1082,"172.20.28
.2",1270,"0,0","0,0"],["1375881371","1375881561","LAN","D0:05:FE","172.20.30.2",
1055,"172.20.28.2",1122,"1034,348","0,0"],["1375881410","1375881540","LAN","E0:0
5:AE","172.20.30.2",1056,"172.20.28.2",1125,"0,0","0,0"]]}