NeoNox Smirnoff:
Чтобы письмо было в формате html
Потому и написал.
Если я все же не правильно понял, тогда
#!/usr/bin/perl -w
#use MIME::Lite;
require "/pub/home/volgoart/cgi-bin/modules/lib/MIME/Lite.pm";
### Create a new multipart message:
$msg = MIME::Lite->new(
From =>\'price@volgoart.ru\',
To =>\'skrebnev@volgoart.ru\',
Subject =>\'Price from volgoart.ru\',
Type =>\'multipart/mixed\'
);
### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type =>\'TEXT\',
Data =>"Here\'s price of our group!"
);
$msg->attach(Type =>\'application/x-zip-compressed\',
Path =>\'\',
Filename =>\'1.zip\',
Disposition => \'attachment\'
);
### Format as a string:
$str = $msg->as_string;
### Print to a filehandle (say, a "sendmail" stream):
$msg->print(\\*SENDMAIL);
### Send in the "best" way (the default is to use "sendmail"):
$msg->send;