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

##</code><code>##

sub Notify {
   my ($Text, $continue, $green) = @ARG;
   my $bgcolor = '#FC8C8C';
   if ($green) {
      $bgcolor = '#BBFFBB';
   }
   print <<"-100-";
   <br><br><br><br>
   <table align=center BGCOLOR="$bgcolor" cellpadding=15 border=3>
       <tr><td align=center><font size=5 face=Arial>
       <b>$Text</b></font></td></tr>
   </table><br><br><br><br><br>
-100-
   if (!$continue) { ## fatal message
      print <<"-200-";
   <table border=0 width=100%>
       <tr><td align=center><font size=4 face=Arial color="blue">
           <b>Contact Whomever Necessary at 999-9999 (Mon-Fri, 8am-5pm)
           for questions regarding use of the this application.</b>
           </font></td></tr>
   </table>
   </center>
   </body>
   </html>
-200-
      exit;
   }
   print <<"-300-";
   </center>
   </body>
   </html>
-300-
}