Help for this page

Select Code to Download

Select or download this

my $recno = 0;
while( <GET RECORD> ) {
...
        <STDIN>;
    } unless ++$recno % 1000;
}