sub system {
  $_[0] = qq{"$_[0]"} if @_ > 1 && substr($_[0],0,1) ne q{"};
  CORE::system( @_ );
}