Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
    errcheck_array($log, "sprintf('$DIcas_text', \@HR)", @HR);
    my $EVmsg = sprintf($DIcas_text, @HR);  print "STD OUTPUT> $EVmsg\
+n";
}