nginx 默认不支持 perl和cgi脚本，安装一下组件即可支持。

1. 安装FCGI模块

# wget http://search.cpan.org/CPAN/authors/id/B/BO/BOBTFISH/FCGI-0.70.tar.gz
# tar zxvf FCGI-0.70.tar.gz
# cd FCGI-0.70
# perl Makefile.PL
# make
# make install

2. 安装 IO 和 IO::ALL模块

# wget http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/IO-1.25.tar.gz
# tar zxvf IO-1.25.tar.gz
# cd IO-1.25
# perl Makefile.PL
# make
# make install
# wget http://search.cpan.org/CPAN/authors/id/I/IN/INGY/IO-All-0

From：http://hi.baidu.com/farmerluo/blog/item/41dc92589bc3fdd99d820407.html

[code]
#!/usr/bin/perl -w
#
######################################################################################################
#requirement:
#rpm -ivh http://dag.wieers.com/rpm/packages/rpmforge-release/rpmforge-release-0.3.6-1.el5.rf.i386.rpm
#yum -y install perl-Authen-SASL perl-MIME-Base64 perl-DBI
#
#脚本功能: 邮件群发脚本
#
#作    者: Luo Hui(farm[separ

安装
tar -zxvf Mail-Sender-0.8.16.tar.gz
cd Mail-Sender-0.8.16
perl Makefile.PL
make && make install

[root@jishu localhost]$ cat smail
[code]#!/usr/bin/perl
use strict;
use Getopt::Std;
use Mail::Sender;
use vars qw($opt_d $opt_m $opt_f $opt_s);
getopts('d:m:f:s:');
my $sender = new Mail::Sender {
        smtp => 'mail.selboo.com.cn',
      &n