Doing a search didn't help.....sorry to bug you.

I have a problem, everytime I send my form to the PERL script - the browsers tries to download my CGI file. It still process the form data - but does anyone know why my browser would do this.

Here's the code

#!/usr/bin/perl
# NOTE- on above line- your path to PERL could be different!
# If you're not sure, check with your web host.
###########################################################
# accepts data post from 'contact us' page and emails data
# written 04/28/02 by thomas watson
###########################################################
# NOTE- again, your path to sendmail could be different
$mailprog = "/usr/sbin/sendmail";
# NOTE- this is where you want the email sent to.
# Be sure and "escape" the "@" sign.
$recipient = "myemail\@example.com";
# get the input
# put it in $buffer
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# split the input into name-value pairs
@pairs = split(/&/, $buffer);
# standard processing loop
# this will un-URLencode as many variables as you send and place
# in an array ($FORM).
foreach $pair (@pairs) {
 # split the name-value pair into name and value
 ($name, $value) = split(/=/, $pair);
 # convert '+' to space
 $value =~ tr/\+/ /;
 # convert embedded comma to space delimiting purposes
 $value =~ tr/\,/ /;
 # convert hex symbols to alphanumeric
 $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c", hex($1))/ge;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c", hex($1))/ge;
 $value =~ s/<!--(.¦\n)*-->//g;
 # create new array with each name and value as elements
 $FORM{$name} = $value;
}
# now assign a variable name to each value from the input array
$NAME = $FORM{'name'};
$EMAIL = $FORM{'email'};
$SUBJECT = "Request For Quote";
$COMPANY = $FORM{'company'};
$PHONE = $FORM{'phone'};
$MESSAGE = $FORM{'message'};
# next we have to re-URLencode any values being sent back to flash.
# for my contact form I'm only going to send the name.
$NAME =~ tr/ /\+ /;
# this assigns a "name" to our name/value pair being sent
# and sends it back to flash through the standard output stream.
# be sure and note the content type!
print "Content-type: application/x-www-urlform-encoded\n\n";
print "rtn_name=$NAME";
# now we open a stream to "sendmail" and send the email
# using the variables from above.
open (MAIL, "¦$mailprog $recipient") ¦¦ die "Can't open $mailprog!\n";
print MAIL "To: $recipient\n";
print MAIL "From:$EMAIL\n";
print MAIL "Subject: $SUBJECT\n";
print MAIL "------------------------------------------------------\n";
print MAIL "$MESSAGE\n\n";
print MAIL "$NAME\n";
print MAIL "$COMPANY\n";
print MAIL "$PHONE";
close (MAIL);
exit;

[edited by: eelixduppy at 9:24 pm (utc) on Dec. 1, 2008]
[edit reason] specifics [/edit]