How to send attachment as zip file in perl?

Hi,
I have this part of code where I need to enable sending file as zip attachment in perl.

if ($func =~ /email (.*)/) {
      $send_email = 1;
      $subject = "Mail from  Servers";
      $attach = 1;
        @RECIP = split /,/, $1;
#      push @RECIP, $1;

      while (<STDIN>) {
            $out .= $_;      
      }

Regards,
Naseer

if ($func =~ /email (.*)/) {
	$send_email = 1;
	$subject = "Mail from  Servers";
	$attach = 1;
        @RECIP = split /,/, $1;
#	push @RECIP, $1;
 
	while (<STDIN>) {
		$out .= $_;	
	}

Open in new window

naseer6679Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
TintinConnect With a Mentor Commented:
MIME::Lite is the usual way most people use for sending attachments.
0
 
marchentConnect With a Mentor Commented:
0
 
Adam314Connect With a Mentor Commented:
The code you posted does not send the e-mail.  You could use the MIME::Lite module to handle this:
    http://search.cpan.org/~rjbs/MIME-Lite-3.024/lib/MIME/Lite.pm
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.