Sendmailのまねするソフトも入れて、送信チェックも問題なかった。
#▼サブルーチン分岐
if ($QUERY{'M'} eq 'R') {&RW;}
if ($QUERY{'M'} eq 'RY') {&RY;}
elsif ($QUERY{'M'} eq 'C') {&FC;}
elsif ($QUERY{'M'} eq 'C1') {&FC1;}
elsif ($QUERY{'M'} eq 'E') {&REND;}
elsif ($QUERY{'M'} eq 'PC1') {&PC1;}
elsif ($QUERY{'M'} eq 'PC2') {&PC2;}
elsif ($QUERY{'M'} eq 'SD1') {&STC_DEL1;}
elsif ($QUERY{'M'} eq 'SD2') {&STC_DEL2;}
elsif ($QUERY{'M'} eq 'R1') {&RW1;}
elsif ($QUERY{'M'} eq 'R2') {&RW2;}
elsif ($QUERY{'M'} eq 'K') {&KS;}
elsif ($QUERY{'M'} eq 'S') {&SO;}
elsif ($QUERY{'M'} eq 'KY') {&KY;}
elsif ($QUERY{'M'} eq 'P') {Π}
else{ &error('モードエラーです ');}

これがえらーのもとのような感じです。