open(OUT,"| $sendmail") || exit;

print OUT "To: $mailto1\n";
print OUT "From: $email\n";
print OUT "Subject: $subject\n";
print OUT "Content-Transfer-Encoding: base64";
print OUT "Content-Type: text/html; charset="Shift-JIS";
print OUT "\n\n";

&jcode'sjis2jis(*value);
print OUT "$value\n";
print OUT "\n";
close(OUT);

}

sendmailのところをこのように記述するとエラーがでてしまいました。
なぜでしょう？