指定した行抜き出す君

line.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my $line = $ARGV[0];
my $margin = $ARGV[1] // 0;

open my $dst, '|-', "head -n @{[$line + $margin]} | tail -n @{[$margin * 2 + 1]}";

while (<STDIN>){
  print $dst $_;
}

close $dst;