Select Code to Download

#!/usr/bin/perl -n
# note the -n switch
...
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 < $n
+ow && print}