メール送信CGI作ってるんですが、何故か内部エラーになります。
何が間違っているか教えてくださいm(_ _)m

#!/usr/bin/perl

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

my $mailPath='/usr/sbin/sendmail-t';
my $fromAddress='[email protected]';

my $cgi = CGI::new();
my $fromAddress = $cgi->param('fromAddress');
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','えらー');}
if($enc_sub =~/^\s*$/){ &error('Input Error','えらー');}
if($body =~/^\s*$/){ &error('Input Error','えらー');}