use Net::SMTP;
open(OLDERR, ">&STDERR");
open(STDERR, "nul");
eval { my $smtp = Net::SMTP->new('relay.utah-inter.net') };
open(STDERR, ">&OLDERR");
die $@ if $@;