先日のサンプルの漢字エンコード部分（サブジェクトとメール本体メッセージ）を標準モジュール（Encode.pm）を使って書き換えてみました。 #!/usr/bin/perl -w use Encode qw(from_to encode); use Net::SMTP; use strict; #メールアドレス設定 my $from = '…