my $target = UnixDate(
    Date_ConvTZ( ParseDate("3 days ago"), 'PST', 'GMT' )
    ,"%e/%h/%Y"
);

open DATA,">$ARGV[1]";
open FH,"$ARGV[0]";

m/\[$target:/ and print DATA $_ while <FH>;
close DATA;
close FH;

##</code><code>##

substr( $_, 34, 11 ) eq $target and print DATA $_ while <FH>

##</code><code>##

print if $logSecs > $startSecs && $logSecs < $endSecs;