#!/usr/local/bin/perl use strict; use utf8; use Authen::SASL; use Net::SMTP; main(); sub main { my $smtp = Net::SMTP->new( 'hogehoge.jp', Hello=>'hogehoge.jp', Port=>587, Timeout=>20, Debug=>1 ); die "can't connect smtp server: $!" unless …