sub hoho_system {
   my ($cmd, $option) = @_;
   my ($returned_result);
   my $silent = 0;
   if ( defined($option) ) { if ( $option =~ m/silent/ ) { $silent = 1; } }
   if ( defined($logfile) ) { open LOG, "+>> $logfile"; print LOG "$cmd: $_\n"; }
   open CMD, "$cmd |" or die "failure running $cmd: $!\n";
   while(<CMD>) {
      print unless $silent;
      print LOG "$_"; $returned_result = "$_\n$returned_result";
   }
   close CMD;
   if ( defined($logfile) ) { close LOG; }
   return $returned_result;
}