linux ，普通用户su root，用perl脚本实现

linux中，普通用户已经登录，如何用perl实现自动su root （即不提示输入密码）？

这个普通用户已经登录，但我实现去重启另外一个用户的某进程。以下代码并没有实现目的，请各位指点。


#!/usr/bin/perl -w

use strict;
my $cmd = <<EOF;
su -
passwd\r
kill -HUP 9880
EOF
system $cmd;

用Expect模块

1，用 expect。（或者 Net::Telnet）
2，把你的脚本 chmod +s 一把（前提是要先装 perl-suid）