$s =~ s/'/'\\''/g;
   return "'$s'";