#!/usr/contrib/bin/perl
open (HTML, ">/tmp/pperl/index.html");
print HTML "Content-Type: text/html\n\n";
print HTML "";
print HTML "";
print HTML "";
print HTML "| Name | ";
print HTML "address | ";
print HTML "number | ";
print HTML "
\n";
open(INPUTFILE,outfile);
open(HTML,">>/tmp/pperl/index.html");
while($line = )
{
($xmit,$dc,$gcd)=split(/,/,$line);
print HTML "";
print HTML "| $Name | ";
print HTML "$address | ";
print HTML "$number | ";
print HTML "
";
}
close INPUTFILE;
print HTML "
";
print HTML "";
close HTML;
=================================================
#!/usr/contrib/bin/perl
$to='asmas@xyz.com';
$from= 'asmas@xyz.com';
$subject='First perl HTML Mail test';
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Content-type: text/html\n\n";
open(FILE,"/tmp/pperl/index.html");
print MAIL ;
close (FILE);
close(MAIL);