my $sec1   = '01' ;
my $min1   = '00' ;
my $hour1  = '00' ;
my $day1   =  '31' ;
my $mon1   =  '10' ;
my $year1  = '2005' ;
my $TIME1  = undef ;
my $date1  = undef ;
#
my $tm    = undef ;
my $now   = time ;
#
my $sec2   = '01' ;
my $min2   = '00' ;
my $hour2  = '00' ;
my $day2   =  '01' ;
my $mon2   =  '11' ;
my $year2  = '2005' ;
my $TIME2  = undef ;
my $date2  = undef ;