Shell Programming and Scripting

use Time::Local;

my $fourtydays = 3456000; #3456000secs
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year+=1900;
$mon+=1;
my $now = timelocal(0,0,0,$mday,$mon,$year);
my $date= timelocal(0,0,0,3,3,2009);
while(<>){
 if (/Login succeeded/ ) {
    @list = split /:|\s/,$_;
    my $logdate= $list[3];    
    if( $logdate =~ /\// ){
        @d = split /\//,$logdate;
        my $date_one = timelocal(0,0,0,$d[2],$d[1],$d[0]);
        if ( ($now - $date_one ) >= $fourtydays ) { print $_; }
    }
 }
}