http://www.perlmonks.org?node_id=696294

biswanath_c has asked for the wisdom of the Perl Monks concerning the following question:


Hi

i have a code now that sends email to a bunch of guys all right. Now, i would like to send attachments (txt files) in the email.

A few things:

i used this snippet that i got from another node in perl monks:

open CSVFH, "< $attach_file_1";

while (<CSVFH>) { chomp; $smtp->datasend("$_\n"); }

close CSVFH;

$smtp->datasend("Content-Type: application/text; name= $attach_file_2");

$smtp->datasend("Content-Disposition: attachment; filename=\"$attach_file_2\" \n");

$smtp->datasend("\n");

but this sends the files that i want to attach as the body of the email and NOT as actual attachments

And, i cannot download the MIME:Lite module. I HAVE to use SMTP only!

can someone help me achieve this?

Thanks