如何用perl发送*.zip格式附件的邮件

#!/usr/bin/perl

# Set Variables

$mailprog = "/usr/bin/sendmail";

$youremail = "rickyao@soim.net"; # Your Email Address

$yourname = "Rickyao"; # Your Name

$file = "apache_pb.gif"; # File to send to user

$email = "rickyao@soim.net";

# Send file to user in email

open(MAIL, "|$mailprog -f $yourname -t $youremail") or die;

# Create headers

print MAIL "From: $yournamen";

print MAIL "To: $email n";

print MAIL "Subject: File: $file (uuencoded) n";

print MAIL "Requested File: $file n";

open(FILE, "uuencode $file $file|") or die;

while( <FILE>) { print MAIL; };

# Close the file and finish sending the mail

close(FILE);

close(MAIL);