Select Code to Download

my @array = <FILE>;
close FILE;

# Print line 10
print $array[10];

my $findline = 10;

...
    # .. do something
    last; #don't read any more
}