out "<FORM ACTION=\"baseportal.pl?htx=$htx\" METHOD=\"post\" ENCTYPE=\"multipart/form-data\" ONRESET=\"return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')\" onSubmit=\"return formcheck()\">";
        &do_hidden("do_mail");
out <<EOF;
        <TR><TD ALIGN='right'>Empfänger :      </TD><TD><INPUT TYPE="text" NAME="work_empfaenger=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Thema :          </TD><TD><INPUT TYPE="text" NAME="work_thema=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Text :           </TD><TD><TEXTAREA NAME="work_text=" COLS=40 ROWS=4 WRAP=VIRTUAL></TEXTAREA></TD></TR>
        <TR><TD ALIGN='right'>Sender :         </TD><TD><INPUT TYPE="text" NAME="work_sender=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Empfänger-Name : </TD><TD><INPUT TYPE="text" NAME="work_empfaenger_name=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Sender-Name :    </TD><TD><INPUT TYPE="text" NAME="work_sender_name=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Copy :           </TD><TD><INPUT TYPE="text" NAME="work_copy=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Blindcopy :      </TD><TD><INPUT TYPE="text" NAME="work_blindcopy=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN='right'>Header :         </TD><TD><INPUT TYPE="text" NAME="work_header=" size=40 VALUE=""></TD></TR>
        <TR><TD ALIGN="center" COLSPAN=2><BR><INPUT CLASS="button" TYPE="submit" VALUE="Mail versendenn"> <INPUT class=button TYPE=reset value="Eingabe löschen"><br> </TD></TR>
        </FORM>
sub do_mail
       {
        mail "$work_empfaenger", "$work_thema", "$work_text", "$work_sender", "$work_empfaenger_name", "$work_sender_name",
             "$work_copy", "$work_blindcopy", "$work_header";
        
        $msg = "SENT";
        $cmd = "fm_mail";
       }