メール送信CGIを作っているんです
Perlチェック(Kent WEBで配布されているもの)ではえらーなしなんですが、なぜか設置すると500エラーになってしまいます。
何が原因か分かりますでしょうか？
ちなみに設置場所はland.to
#!/usr/bin/perl

use strict;
use CGI;
require"./jcode.pl";

my $mailPath='/usr/sbin/sendmail';
my $fromAddress='[email protected]';
#引数を取り込む
my $cgi = CGI::new();
my $address = $cgi->param('address');
my $subject = $cgi->param('subject');
my $body = $cgi->param('body');

#エンコード
my $enc_sub = &Base64Encode($subject);
&jcode'convert(*body,'jis');

if($address !~/^.+@.+$/){ &error('Input Error','addressを入れてください。');}
if($enc_sub =~/^\s*$/){ &error('Input Error','SUBJECTを入れてください');}
if($body =~/^\s*$/){ &error('Input Error','BODYを入れてください');}