我的第一个perl实践（发送邮件）
进入公司，在人事部“玩了”三个月，也就是所谓的洗脑吧，其实感觉很爽的，一天就去开会什么，可是作为一名技术男，我想这时间对我是一种享受的奢侈，因为我真心多学点技术，趁年轻的时候。三月之后，加入公司信息系统部，给予我管理上的工作，和之前直接做开发的意愿有很多的违背，不情愿但也得接受，后面才知道这是公司培养新人的一个流程，很感激公司为这样的一群我们劳费那么多的心思，作为人生的第一个事业站点，我能有这样的运气是上辈子修来的福分，会好好珍惜。
之后就参加了部门的各种业务，其中一个是cacti的二次开发，我负责的是使用per来开发邮件，经过几个星期的学习，逐渐对perl产生很深的感情，喜欢perl的自由风格，加上开源，在文本上的处理优异性，这些都“爱上”了。写了很多很多的邮件发送脚本，SMTP只发不收，POP3只收不发等的邮件模块，而其SMTP需要进行认证（auth）,好烦人的，总是提示“Can't call the method......”，不喜欢这种方法，折腾了好久，最后终于完成了一个邮件的开发，能在linux环境下面发送邮件，可以发送图片，网页等。作为一个纪念，我将代码贴出来，作为参考，有欠缺的地方，欢迎大神指点。
代码：
#！/usr/bin/perl
#auth by yanwenhua
#use strict;
use MIME::Lite;
$time=localtime();
# Create a new multi-part message:
$msg = MIME::Lite->new(
From => 'yanwenhua@fxsz.com.cn',
To => 'yanwenhua@fxsz.com.cn',
Cc => 'yanwenhua@fxsz.com.cn',
Type => 'multipart/mixed',
Subject => "Web server is down! ($time)"
);
# Attachments
# Text part
$msg->attach(
Type => 'TEXT',
Data => "Web server response for page: $page ".
"was: $response." .
"See the attached image for recent load.",
);
$msg->attach(
Type => 'text/html',
Data => qq{
<body>
Here's <i>my</i> image:
<img src="cid:myimage test.jpg">
</body>
},
);
$msg->attach(
Type => 'TEXT',
Data => "Here's the jpg file you wanted"
);
# Attach Image.
$msg->attach(
Type => 'image/gif',
Path => '/usr/tmp/test.jpg',
Filename => 'test.jpg',
Disposition => 'attachment'
);
$msg->send;
