#!/usr/bin/perl -w
use strict;
my ($email_400, $email_500, $unfriendly_error, $redirect_to);
my $main_domain=getpwuid($<);
my @sendmail_path=(qw(/usr/sbin/sendmail -i -odb), "-fdcm\@nineone.org");

## Uncomment the below two lines to get emailed regarding the respective
## errors.

$email_400="dcm\@$main_domain";
$email_500="dcm\@$main_domain";