use CGI::Carp qw(fatalsToBrowser set_message);
       
use vars qw($DEBUGGING);

BEGIN 
{
   $DEBUGGING = 1;

   my $error_handler = sub 
   {
      my $message = shift;
      print "<h1>I got a Problem</h1>";
      print $message if $DEBUGGING;
   }
  set_message($error_handler);
}


##</code><code>##

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser set_message);
       
use vars qw($DEBUGGING);

BEGIN 
{
   $DEBUGGING = 1;

   my $error_handler = sub 
   {
      my $message = shift;
      print "<h1>I got a Problem</h1>";
      print $message if $DEBUGGING;
   }
  set_message($error_handler);
}

my $string = "Fileserver with Samba and Printserver with CUPS";
print $string;
exit;