Sending email and attachment file using Perl

I am trying to send an email body of information and also attachment using perl script, but I am only able to send the body but not an attachment. is there around it without using "use MIME::Lite;" module.

 
$user = "bataf\@xyz.com";
$subjectt = "mail from perl";
open(MAIL, "| mailx -s TEST_Errors $user");
printf(MAIL "\t>>>>>>>>>  $date TEST_ ERRORS <<<<<<<<<<\n"); 
printf(MAIL "TEST ERRORSc8: $c8\n"); 
printf(MAIL "TEST ERRORSc7: $c7\n");
printf(MAIL "TEST ERRORSc4: $c4\n"); 

Thanks,
bataf

I like the Mail::Sendmail module. Mail::Sendmail FAQ