發信用的Email..會將純文字的文件寄送出去...
[code:1:f7e3ae6c10]
#!/usr/bin/perl
#---------------------------------------------------------------
#fileName: mail_perl:發送測試用的Email
#---------------------------------------------------------------
use Mail::Sender;
## 幫助Debug使用
use Carp();
local $SIG{__WARN__} = \&Carp::cluck;
## 將Standard Error儲存至檔案
open(STDERR,">>/tmp/mail_err.log");
#local($to,$subject,$filename,$from,$server_ip,$replyto) =@_;
## 取得輸入參數
$to=shift;
$subject = shift;
$filename=shift;
$filename=~/(\/.*\/)(.*)/;
## 取得附加檔名
$file= $2;
$from=shift;
$server_ip=shift;
$replyto= shift;
$fake_from =shift;
#print "$to,$subject,$filename,$from,$server_ip,$replyto\n";
# 定義smtp server，client是?哪
