Help for this page

Select Code to Download

Select or download this

foreach $record (@BLIST) {
  open(BAN, $record) || &Error($!);
...
    print $line;
  }
}