Select Code to Download

$numHeaders= $ARGV[0];
$numFooters= $ARGV[1];
...
for my $line (@file) {
   # process your data
}

# Discard the headers and footers
splice @file, 0, $numHeaders;
splice @file, $#file-$numFooters, $numFooters;