open(OLDERR, ">&STDERR");
open(STDERR, "/dev/null");
                                 
eval { my $smtp = Net::SMTP->new('relay.utah-inter.net') };

open(STDERR, ">&OLDERR");

die $@ if $@;