if($from ne "" && $to ne ""){ my $content= MIME::Lite->new( From => $from, To => $to, Cc => $cc?$cc:"", Subject => $subject?$subject:"No Subject", Data => $content?$content:"No Content", Bcc => $bcc?$bcc:"" ); $content->attach( Type => 'TEXT', Data => 'Here is the text for testing' ); $content->attach( Type => 'FILE', path => 'path', Filename=> 'text.txt', Disposition =>'attachment' ); }