Help for this page

Select Code to Download


  1. or download this
    while (<$fh>){
      next unless /\S/; # skip blank lines
    ...
      }
      push @{$data{$acct}},$_ if ($acct);
    }