#!/usr/bin/perl -n
# note the -n switch
use Date::Parse;
use features 'say';
BEGIN{$main::now=time;$main::old=(time-60*10)}
if(/^(\w+\s+\d+\s+\d+:\d+:\d+)/) {$t=str2time $1; $t > $old && $t < $now && print}