#!/usr/bin/env perl

use strict;
use warnings;

my $infile = q{pm_read_part_file.in};
my $outfile = q{pm_read_part_file.out};
my $start = 3;
my $end = 5;

open my $in_fh, q{<}, $infile or die qq{Can't open $infile for reading: $!};
open my $out_fh, q{>}, $outfile or die qq{Can't open $outfile for writing: $!};

while (<$in_fh>) {
    next if $. < $start;
    last if $. > $end;
    print $out_fh $_;
}

close $in_fh;
close $out_fh;

##</code><code>##

en@ganymede: ~/tmp
$ pm_read_part_file.pl
ken@ganymede: ~/tmp
$ cat pm_read_part_file.in
Line 1
Line 2
Line 3
Line 4
Line 5
Line 6
ken@ganymede: ~/tmp
$ cat pm_read_part_file.out
Line 3
Line 4
Line 5
ken@ganymede: ~/tmp
$