Help for this page

Select Code to Download


  1. or download this
        javascript:alert('hello')
    
  2. or download this
    sub alert
    {
        print "javascript:alert('hello')\n\n";
    }
    
  3. or download this
    sub alert
    {
    ...
        $msg =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
        print $query->header(-script=>"alert('$msg')");
    }