Jcode and perldesk (better information)

Upon further examination, I realized that this is the part I need to use
Jcode on (in particular, $subject and $mbody)--I need them to be converted
to shift_JIS:

 } else {

        open(MAIL, "|$global{'sendmail'} -t") || print "Unable to send mail:
$!";
                        print MAIL "To: $newfrom\n";
                        print MAIL "From: $ticketad\n";
                        print MAIL "Subject: \{$epre-$trackno\} Help Desk 
Submission\n\n";
                        open 
(MAILNEWTPL,"$global{'data'}/include/tpl/newticket.txt");
                                while (<MAILNEWTPL>) {
                  lang_parse();
                                  if ($_ =~ /\{*\}/i) { 
                                        s/\{name\}/$name/g;
                                        s/\{subject\}/$subject/g;
                                                
s/\{baseurl\}/$global{'baseurl'}/g;
                                        s/\{description\}/$mbody/g;
                                        s/\{date\}/$hdtime/g;                   
        
                        s/\{mainfile\}/pdesk\.cgi/g;
                                  }                     
                        print MAIL "$_";
                        }
        close(MAIL);