Select Code to Download

use strict;

...
while( read( $F, my $record, $length ) ){
    # do something with $record
}

my $c = 'some_scalar_data';

...
    no bytes;

}