require 'fold.pl';

while (length($string)) {
(my $folded, $string) = fold($string, 40);
$body .= $folded, "\n";
}


一応出力されてメールは送ってくるけど、全角20時ごとに改行されていない
なんでだろ