while (<OLD>) {
    
my $delta_days;
my ($line_year, $line_mon, $line_day) = /(\d{4})-(\d{1,2})-(\d{1,2})/; 
$delta_days = Delta_Days($line_year,$line_mon,$line_day,$yearto,$monthto,$dayto);

    next if $delta_days > 0;
    print NEW $_;
    
}