複数のアドレスに送信されるように設定しているので、
あまりアドレスをおおっぴらにしたくないのですが、
送信される際にBCCに送ることは出来ないでしょうか？

一応分からないなりに調べてみて、

254行目を print "To: $mailto\n";
から
　　　　　print "Bcc: $mailto\n";
に変更してみたりしたのですが、
相変わらず普通に送信されてきます。

お手数ですが、教えていただければ幸いです。

	print OUT "To: $mailto\n";
のところを
	print OUT "To: $mailto\n";
	print OUT 'BCC: myaddress@xxx.jp' . "\n";
とやればイケました。

ありがとうございました、早速試してみます。