このスクリプトの書き方で、おかしい所を指摘してくれませんか？

#!/usr/bin/perl

require "../lib/jcode.pl";
require "../lib/mimew.pl";

$mailto ='[email protected]';
$subject ='タイトルだよ';
$mail = $cgi->('mail');
$name = $cgi->('name');
$kana = $cgi->('kana');

$subject = mimeencode($subject);

open(MAIL, "| /usr/lib/sendmail -t");

print MAIL "To: $mailto\n";
print MAIL "From: $mail\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/plain;\n\n";
print MAIL "お名前は＝ $name\n";
print MAIL "フリガナは＝ $kana\n";
close(MAIL);

年始早々、このような低レベルの質問で申し訳ありません。
よろしくお願い致します。