sub write {
  my ($self, $msg) = @_;
  $self->fh->print($msg."\n") if $self->log(); 
  print($msg."\n") if $self->shell(); 
}