my $sec = 0; my $min =0; my $hr = 0; $epoch = timelocal( $sec, $min, $hr, $d, $m, $y-=1900 ) + $plus * 86400; print "Date $sec, $min, $hr, $y, $m, $d = $epoch\n"; $sec = 59; $min = 59; $hr = 23; $epoch = timelocal( $sec, $min, $hr, $d, $m, $y-=1900 ) + $plus * 86400; # line 51 print "Date $sec, $min, $hr, $y, $m, $d = $epoch\n";