kan man conveter fra cgi til asp

?
kan man conveter nedestånde cgi til asp

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

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

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

if ($udbyd eq "fejl") {
$ud_html = $fejl_html;
}
else {
$email = "$email\@$udbyd";

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

$ud_html = $ok_html;
}
#print "Content-type: text/html\n\n";
print "Location: $ud_html\n\n";