# No good on Windows
sub text_to_shell_lit {
   my ($s) = @_;
   $s =~ s/'/'\\''/g;
   return "'$s'";
}