$smtp = Net::SMTP->new('mailhost', Timeout => 60);