#!/usr/bin/perl
                                                                                
use strict;
                                                                                
use CGI::Carp qw(fatalsToBrowser set_message);
                                                                                
                                                                                
my $sub_message = sub {
                        my ($message) = @_;
                        if ($ENV{REMOTE_ADDR} eq '127.0.0.1')
                        {
                           print "Oops: $message";
                        }
                        else
                        {
                           print "Unable to process, please try later";
                        }
                     };
                                                                                
set_message($sub_message);
                                                                                
die "aiee!";