Hvorfor virker denne SMS sender ikke ?

Mit Html ser sådan ud :

<script>
<!--
//Script by Ricki Runge
//Find more at www.script.dk
function check_emne() {
document.sms.tilbage.value = 180 - document.sms.mail_emne.value.length - document.sms.mail_fra.value.length;
if (document.sms.tilbage.value < 0) {
  alert(\"Beskeden kan ikke være mere end 180 tegn\");
}
}

//-->
</script>

  <tr>
    <td width=\"100%\" bgcolor=\"#333333\" bordercolor=\"#FFFFFF\"><FORM ACTION=\"http://www.kjukken.dk/piracy/formmail-sms.cgi\" METHOD=POST name=\"sms\">
<INPUT type=hidden name=\"ok_html\" value=\"http://www.kjukken.dk/piracy/mail_sendt.html\">
<INPUT type=hidden name=\"fejl_html\" value=\"http://www.kjukken.dk/piracy/mail_fejl.html\">
<center>
<table border=0 CELLPADDING=0 CELLSPACING=0>
<tr><td>
    <p align=\"center\"><b><font color=\"#C0C0C0\">Til mobilnr.</font></b></p>
  </td></center><td>
    <p align=\"left\"><b><font color=\"#C0C0C0\"><INPUT name=\"mail_til\" size=8></font></b></p>
  </td></tr>
<center>
<tr><td>
    <p align=\"center\"><b><font color=\"#C0C0C0\">Fra</font></b></p>
  </td></center><td>
    <p align=\"left\"><b><font color=\"#C0C0C0\"><INPUT name=\"mail_fra\" size=20 onkeyup=\"check_emne()\" onchange=\"check_emne()\"></font></b></p>
  </td></tr>
<center>
<tr><td>
    <p align=\"center\"><b><font color=\"#C0C0C0\">Besked</font></b></p>
  </td><td bgcolor=\"#000000\">
    <p align=\"center\"><b><font color=\"#C0C0C0\"><textarea name=\"mail_emne\" cols=\"20\" rows=\"4\" wrap=\"virtual\" onkeyup=\"check_emne()\" onchange=\"check_emne()\"></textarea></font></b></p>
  </td></tr>
<tr><td>
    <p align=\"center\"><b><font color=\"#C0C0C0\">Tegn tilbage</font></b></p>
  </td><td>
    <p align=\"center\"><b><font color=\"#C0C0C0\"><INPUT name=\"tilbage\" size=3 value=180></font></b></p>
  </td></tr>
<tr><td colspan=2>
    <p align=\"center\"><b><font color=\"#C0C0C0\"><INPUT type=\"submit\" value=\" Send \"></font></b></p>
  </td></tr>
</table></center></td>
  </tr>
</table>

</form>



og min formmail cgi fil ser således ud :

#!/usr/bin/perl

#######################################
# FormMail-SMS.cgi                    #
# Copyright Ricki Runge for Script.dk #
# ricki@script.dk - www.script.dk    #
#######################################

$mailprog = \'/usr/sbin/sendmail\';

read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@datain = split(/&/, $buffer);

foreach $data (@datain) {
$data =~ s/\\+/ /g;
$data =~ s/%(..)/pack(\"c\",hex($1))/ge;
($name, $value) = split(/=/, $data, 2);
$name = lc($name);
if ($name eq \"mail_til\") {
  $email = $value;
} elsif ($name eq \"mail_fra\") {
  $fra = $value;
} elsif ($name eq \"mail_emne\") {
  $emne = $value;
} elsif ($name eq \"ok_html\") {
  $ok_html = $value;
} elsif ($name eq \"fejl_html\") {
  $fejl_html = $value;
}
}

if ($email >= 20100000 && $email < 20600000) {
$udbyd = \"sms.tdm.dk\";
} elsif ($email >= 20600000 && $email < 21000000) {
$udbyd = \"note.sonofon.dk\";
} elsif ($email >= 21100000 && $email < 22000000) {
$udbyd = \"sms.tdm.dk\";
} elsif ($email >= 22100000 && $email < 23000000) {
$udbyd = \"note.sonofon.dk\";
} elsif ($email >= 23000000 && $email < 24000000) {
$udbyd = \"sms.tdm.dk\";
} elsif ($email >= 26100000 && $email < 26900000) {
$udbyd = \"sms.mobilix.dk\";
} elsif ($email >= 28100000 && $email < 28900000) {
$udbyd = \"sms.mobilix.dk\";
} elsif ($email >= 40100000 && $email < 40500000) {
$udbyd = \"sms.tdm.dk\";
} elsif ($email >= 40500000 && $email < 50000000) {
$udbyd = \"note.sonofon.dk\";
} else {
$udbyd = \"\";
}

$ud_html = $fejl_html;
if ($udbyd ne \"\") {
$email = \"$email\\@$udbyd\";

open(MAIL,\"|$mailprog -t\");
print MAIL \"To: $email\\n\";
print MAIL \"From: $fra\\n\";
print MAIL \"Subject: $emne\\n\\n\";
print MAIL \"\\n\";
close (MAIL);

$ud_html = $ok_html;
}
print \"Location: $ud_html\\n\\n\";




det står rigtigt med !#usr/bin/perl
og mail programmet er også rigtigt...  jeg har uploadet den i Ascii og CHmoded den 755 
det er en unix server det ligger på...

mvh Jesper