http://www.perlmonks.org?node_id=586857


in reply to print log file

print if( (timestamp > thresh) .. 0 );