Select Code to Download

my $iter = 0;
while( $iter++ < $MAX_ITERS ) {
  do_stuff();
}

{
   my $block_size = 207;
   sub get_block_size { $block_size }
}

sub nuke_file {
    my $file = shift;
...
    }
    close(BYEBYE);
}

sub all_ones {
    0xff x $_[0];
}

nuke_file( $filename, \&all_ones );