use warnings;
use strict;

use Tie::File;

my $file = 'a.txt';

my $num_headers = $ARGV[0];
my $num_footers = ++$ARGV[1];

tie my @file, 'Tie::File', $file or die $!;

my $stop = scalar @file - $num_footers;

my @section = @file[$num_headers..$stop];

untie @file;

print "$_\n" for @section;

##</code><code>##

h1
h2
data
more data
even more data
blah
f1
f2
f3

##</code><code>##

$ ./header.pl 2 3

data
more data
even more data
blah