use strict;
use warnings;
use XML::Twig;

my $nhf = XML::Twig->new( twig_roots => { RECORD => \&record_check, }, );
$nhf->parse(<<'XML');
<EXPORT>
  <OUTPUT>2008-01-01</OUTPUT>
  <RECORD><ID>1</ID></RECORD>
  <RECORD><ID>2</ID></RECORD>
</EXPORT>
XML

sub record_check {
    my ( $nhf, $record ) = @_;
    my $member = $record->first_child('ID')->text();

    if ( $member < 1000 ) {
        $record->print();
        print "\n";
    }

    $nhf->purge ();
}

##</code><code>##

<RECORD><ID>1</ID></RECORD>
<RECORD><ID>2</ID></RECORD>