Help for this page

Select Code to Download

Select or download this

use CGI qw(:standard);

...
  print "<HTML><BODY><script language=javascript>alert($message);</scr
+ipt>Sorry dude, hit back button</BODY></HTML>";
  exit(0);
}