my $def_smtp 		= "your.smtp.com";	#<--IMPORTANT!  Set this!
my $def_email 		= 'thomasoniii@yahoo.com';
my $def_return		= 'thomasoniii@yahoo.com';
my $def_subject 	= "Ye Gods!  An error!";
my $def_domain		= "smtp.com";		#<--IMPORTANT!  Set this! I mean it!
my $def_log_file 	= "error.log";

##</code><code>##

my $paddr = sockaddr_in(25, $remote_address);

##</code><code>##

sub today {
...
}

##</code><code>##

sub error { undef};