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);