use Net::SMTP;
my $tmpfile = "$ENV{TMPDIR}/stmp.$$";   # Or use a module like File::Temp

open(OLDERR, ">&STDERR");
open(STDERR, ">$tmpfile");

eval { my $smtp = Net::SMTP->new('relay.utah-inter.net') };

close(STDERR);
open(STDERR, ">&OLDERR");

unlink($tmpfile);

die $@ if $@;