have a file called 'test.txt',which I want to send it as an email attachment also want the contents in Email Message body.
(I want to achieve with sendmail with out using any Perl modules Like MIME::Lite .etc.)I could manage to write a Perl script with till here ,which will paste the content in the email body.
Please help me to make the same file also an attachment in same email.
#!/usr/bin/perl
use strict;
use warnings;
$title='Test';
$to='test@mydomain.com';
$from= 'test@example.com';
$subject='Test mail';
my $file = "test.txt";
open(MAIL, "|/usr/sbin/sendmail -oi -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, "$file") or die "Cannot open $file: $!";
print MAIL <FILE>;
close(FILE);
close(MAIL);
