Select Code to Download

my $linenum = 10;
while ( my $line = <FILE>) {
...
    # Process the one line here...
    last;  # No need to continue.
}