my $recno = 0;
while( <GET RECORD> ) {
    ...
    AddRecordToDB( ... );
    do{
        print 'Check memory:'; 
        <STDIN>;
    } unless ++$recno % 1000;
}