Help for this page

Select Code to Download

Select or download this

foreach my $class ( sort keys %classHash ) {

...
        if  ( $classHash{$class} = "MAIL" ) { $outhandle = *MAILOUT; }

    foreach my $status ( sort keys %{ $classHash{$class} } ) {