open(M, "|/usr/sbin/sendmail -t");
print M "To: Piero <gior\@imap>\n";
print M "Subject: Test\n";