open(MAIL,"|$mailprog -t"

;
$from='From@from.com';
$mailarray=$mailid.'@from.com';
$|=1;
print MAIL "To: $mailarray \n";
print MAIL "From:$from \n";
#print MAIL "Subject: Test \n\n";
print MAIL "Content-Type: text/html \n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "<img src=conbottom.gif>";
print MAIL "<table border=\"0\" width=\"101\%\" height=\"68\" bgcolor=\"#0000CC\">";
print MAIL "<tr>";
print MAIL "<td width=\"100\%\" height=\"62\"><font face=\"Verdana\" size=\"4\" color=\"\#FFFFFF\"><b>Test</b></font></td>";
print MAIL "</tr></table>";
print MAIL "<p>&nbsp\;</p><p>&nbsp\;</p><p>&nbsp\;</p>";
print MAIL "<p align=\"center\"><b><font face=\"Verdana\" size=\"3\">";
print MAIL "<p align=\"center\"><b><font face=\"Verdana\" size=\"3\">$mail</font></b></p>";
print MAIL "<br>";
print MAIL "<p align=\"center\"><b><font face=\"Verdana\" size=\"2\">Information: </font></b></p>";
print MAIL "<br>";
print MAIL "<p align=\"center\"><b><font face=\"Verdana\" size=\"1\">Name:$name CategoryI: $text,Category II: $com,Category III: $subtext</font></b></p>";
print MAIL "<p align=\"center\"><b><font face=\"Verdana\" size=\"2\"><a href=\"
border=\"0\" src=\"
width=\"182\" height=\"71\"></a></font></b></p>";
print MAIL "<br>";
print MAIL "</body>";
print MAIL "</html>";
$|=1;
close (MAIL);