Select Code to Download

---Source ---
#!/usr/bin/perl -w
...
        print "$port: $read_data";# unless $_->predict;
    }   
}

>perl big_log 
Push /usr/local/qpxlocal/log/activity-200104192022-av2J15-10290.log
...
Nothing new in the past 1 seconds (1,1,1,1,1,1,1)
Nothing new in the past 1 seconds (1,1,1,1,1,1,1)
Nothing new in the past 1 seconds (1,1,1,1,1,1,1)