Select Code to Download

#!/usr/bin/perl -w

use strict;
...
while( 1 ) {
    print join( " ", map $lfsr->(), 1..$bits ), $/;
}

my $lfsr= golfGenLFSR( $nBits, $iSeed, $tap0, $tap1, $tap2 );
my $nextBit= $lfsr->();