use CGI ':standard';
use Mail::Sender;
my @rel=param ('rel');
my @label=param ('label');
my @config=param ('config');
$sender=new Mail::Sender
{smtp=>'server', from=>'cbedreag@yahoo.com'};
$sender->OpenMultipart({to=>'test@hotmail.com',subject=>"Test mail",
multipart=>'related'});
$sender->Part({ctype=>'text/html',disposition=>'None', msg-><<'*END*'})
Package |
| From | Diana |
| Date | @date |
| Relationto | @rel |
| testing | @label |
| Const | @config |
*END*
$sender->EndPart("text/html");
$sender->Close();