#!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my $date_manip_object = new Date::Manip;

$date_manip_object->parse( '2 days ago' );
$date_manip_object->convert( 'GMT' );

my $gmt_ref = $date_manip_object->printf( '%Y%m%d') ;

while (<DATA>) {
    my $err = $date_manip_object->parse_format('.*?\\[%d/%b/%Y:%T\s+%z\\].*', $_);

    next if $err; # skip (?) lines that do not match the date format

    my $input_line_date = $date_manip_object->printf( '%Y%m%d') ;

    if ($input_line_date eq $gmt_ref) {
       print;
    }
}

__DATA__
10.1.10.178  -       -       [15/Jun/2010:23:30:34    +0000]      -
10.1.10.178  -       -       [16/Jun/2010:23:30:34    +0000]      -