try something like this:
#!/usr/bin/perl
use CGI qw(:standard);
$javascript = <<EOF
function annoy() {
alert('la la la la la');
}
print header();
print start_html(-script=>$javascript);
print p(a({-href=>'javascript:annoy()'}, "Click me to be annoyed"));
--
justin simoni http://skazat.com
______________________________________________________________________
Steven Wright:
"Uh-Oh, I've lost a button-hole"
More:
http://quotes.prolix.nu
on 6/12/01 2:41 PM, [EMAIL PROTECTED] at [EMAIL PROTECTED] wrote:
> i have a script that generates html. i would like to put some javascript
> in the <head></head> tags which is being generated, but escaping the
> javascript is a nightmare.
> does the print "<<tag" allow you to enter all this tedious code without
> escaping?
> if not, do i have another choice to get around this?
>
> thanks -cjm
>
>
