#!/usr/bin/perl -w
# perl のパスを指定

$send="00000000000\@docomo.ne.jp"; # デフォルト送信先

while (<>){
$content .= $_;

m/^Content-Length: (\d+)$/;

if ( m/^$/ ){ # 本文は調べない
while (<STDIN>){
$content .= $_;
}
}
}

open(SENDMAIL,"|/usr/bin/sendmail $send");
print SENDMAIL $content;
close(SENDMAIL);

exit;

Perlを勉強中で、上記を使って自分の携帯からメールを送りそのまま返信
(転送)するプログラムを作ろうとしています。
実際にメールを送るとサーバーには届いているのですが、返信をしてくれ
ません。記述で間違っている箇所があれば教えてください。