note
parv
<c>
# Fill in blanks as needed.
my $file = '...';
my $start = ... ;
my @content;
open my $fh , '<' , $file
or die "Cannot open $file to read: $!";
while ( my $line = <$fh> )
{
next if $. < $start;
push @content , $line;
}
close $fh
or die "Could not close $file: $!";
...
</c>
1000322
1000322