32
 33 ##################################################
 34 sub log {
 35 ##################################################
 36     my($self, %params) = @_;
 37
 38     if($self->{stderr}) {
 39         print STDERR $params{message};
 40     } else {
 41         print $params{message};
 42     }
 43 }