use Data::JavaScript;
print 'alert("',
Data::JavaScript::__quotemeta(qq,ab\x22q\x27uo\x27te\x22cd,),
'");',"\n";
__END__
alert("ab\"q'uo'te\"cd");