Select Code to Download

while( read DATA, $data, BLOCKLEN ) {
    ## Extract the header from the front of the block
...
    
    ## do something with it.
}

until( eof DATA ) {
    read DATA, my $header, BLOCKHDR or die;
...
    read DATA, my $trailer, BLOCKTRL or die;
    ## Do stuff with $trailer
}