今Sendmailを用いたプログラミングを行っています。
メールは正しく送信されるのですが、意味の分からないところで固まってしまい、あたふたしています。
以下が問題の部分なのですが、
　　&ProgramAccessTimeOut('Line : 734');
　　&jcode'convert(*emails,'jis');
　　&ProgramAccessTimeOut('Line : 736');
　　if(open(MAIL,"| $sendmail $mailto")){
　　print MAIL "$emails";&ProgramAccessTimeOut('Line : 738');
　　close(MAIL);&ProgramAccessTimeOut('Line : 739');
　　　&ProgramAccessTimeOut('Line : 740');return true;
　　}else{
　　　　&ProgramAccessTimeOut('Line : 742');return false;
　　}
で、ProgramAccessTimeOutは
sub ProgramAccessTimeOut{
　　my $md = $_[0];
　　my $sa = time - $ProgramAccessTimeOut_StartTime;
　　if($sa > 20){&Error('Time Out');}
　　open(IPR,">>prosess.txt");
　　　print IPR "$md\n";
　　close(IPR);
　　return;
}
となっています。これはプログラムの動きを見るために付けたものです。
prosess.txtに保存されている最後の内容が、Line : 738で、print MAIL "$emails";までは正しく働いていることが確認できるのですが、何故か
close(MAIL)で固まってしまっている様子です。エラーの内容は、「OUT OF MEMORY!」でした。
全く歯が立たないため解決方法をお願いしたいのですが、お願いできませんでしょうか、お願いいたします。