Select Code to Download

my $def_smtp         = "your.smtp.com";    #<--IMPORTANT!  Set this!
my $def_email         = '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";

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

sub today {
...
}

sub error { undef};