Select Code to Download

sub mprint
{
        my @fh;
...
open($se, ">&STDERR");

mprint $se, $so, "This tests\n";

my @default = ($so);
my @log_and_print = ($log, $so);

mprint @default, "Standard message\n";
mprint @log_and_print, "This goes to log and screen\n";