вот вроде это:
open (MAIL, "|$mailprog");
print MAIL "To: $admin_adress\\n";
#print "To: $admin_adress
\\n";
print MAIL "From: $FORM{\'email\'}\\n";
print MAIL "Cc: $FORM{\'email\'}\\n";
print "От: $FORM{\'email\'}
\\n";
print MAIL "Content-type: text/html; charset=windows-1251\\n";
print MAIL "Subject: Тест номер $FORM{\'id\'} \\n\\n";
#print "Subject: Заказ номер $FORM{\'id\'}
\\n\\n";
print MAIL "Организация:$FORM{firma}
Тел/факс:$FORM{fax}
E-mail:$FORM{email}
Контактное лицо:$FORM{myname}
";
print "Организация:$FORM{firma}
Тел/факс:$FORM{fax}
E-mail:$FORM{email}
Контактное лицо:$FORM{myname}
";
print MAIL "
Заказ №$FORM{\'id\'}
\\n";
print "
Заказ №$FORM{\'id\'}
\\n";
print MAIL "
\\n";
print " \\n";
print MAIL "Наименование | кол-во | цена |
";
print "Наименование | кол-во | цена |
";
$summa=0;
for ($i=1 ;$i<$top;$i++){
$n="name"."$i";$name=$FORM{$n};
$s="sale"."$i";$sale=$FORM{$s};
$c="col"."$i";$col=$FORM{$c};
print MAIL "$name | $col | $sale |
";
print "$name | $col | $sale |
";
$summa=($summa+($sale*$col));}
print MAIL "
";
print MAIL "
На сумму:$summa $valuta";
print "
";
print "
На сумму:$summa $valuta";
if ($FORM{content} ne ""){print MAIL "
Дополнения к заказу:$FORM{content}" ;}
if ($FORM{content} ne ""){print "
Дополнения к заказу:$FORM{content}" ;}
close(MAIL);