Help for this page

Select Code to Download

Select or download this

while (defined($line = $bw->readline)) {
  chomp $line;
...
    last; #  <-- add
  }
}