javascript:alert('hello')

##</code><code>##

sub alert
{
    print "javascript:alert('hello')\n\n";
}

##</code><code>##

sub alert
{
    $msg = shift;
    $msg =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
    print $query->header(-script=>"alert('$msg')");
}