Help for this page

Select Code to Download

Select or download this

# instead of this:
my @lines = <DATA>;
...
while my $line (<DATA>) {
...
}