Help for this page

Select Code to Download


  1. or download this
    use Net::SMTP;
open(OLDOUT, ">&STDOUT");
close(STDOUT);
my $smtp = Net::SMTP->new('relay.utah-inter.net');
open(STDOUT, ">&OLDOUT");
  2. or download this
     
use Net::SMTP;
open(OLDERR, ">&STDERR");
...
eval { my $smtp = Net::SMTP->new('relay.utah-inter.net') };
open(STDERR, ">&OLDERR");
die $@ if $@;