my @flush = `$command`;
  my $cr=$?>>8;
  print "$command\n";
  print "Returned $cr\n";