sub quote {
    my $str = shift;    
    # escape all slashes
    $str =~ s/\\/\\\\/g;
    # escape all single-quotes
    $str =~ s/'/\\'/g;
    return $str;
}