#!/usr/bin/perl -w

   use CGI::Carp qw(fatalsToBrowser set_message);
BEGIN {
   sub handle_errors {
	  my $msg = shift;
	  print "<font face=\"Verdana\">";
	  print "<h1>Oops!</h1>";
	  print "<u>Error:</u><br>$msg";
	  print "</font>";
  }
  set_message(\&handle_errors);
}
   use hotspots;
     
   my $app = hotspots->new();
   $app->run();