Select Code to Download

use warnings;
use strict;
...
untie @file;

print "$_\n" for @section;

h1
h2
...
f1
f2
f3

$ ./header.pl 2 3

...
more data
even more data
blah