Select Code to Download

print "<script language='javascript'>alert('Exiting sub XXXXXXXXXX.')<
+/script>";

sub Notify {
   my ($Text, $continue, $green) = @ARG;
...
   </html>
-300-
}