open(OLDOUT, ">&STDOUT");
close(STDOUT);

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

open(STDOUT, ">&OLDOUT");