<perl>
if($cmd eq "all")
{
  out <<EOF;

<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="cmd=" value="send">
<input type="hidden" name="Id=" value="$Id">
<input type="text" name="EMail=">
<input type="submit" value="Versenden">
</form>
EOF
} elsif($cmd eq "send")
{
get "Id==$Id";
mail $EMail, "Backrezept", $Text;
out "Der Beitrag wurde versendet...";
}
</perl>