Select Code to Download

local $/ = "HEADER END\n"; # set input record separator
while ($file = <*.las>) {
...
    close(FILE);
    # process $header here
}

my $maxHeader = 50;
OUTER:
...
    close FILE;
    # process $header here
}