Perl中fork一个新的进程并通过管道和该进程交互的问题

[forestwind]

我需要使用sshfs连接n个服务器。
连接的命令存储在/etc/sfs.conf里，格式如下：

sudo sshfs [e-mail]: /mnt/5021 -o allow_other -p 5021

连接需要密码。处于某种原因我不能使用别的办法，必须输入密码。
我的代码如下：
open CFG, "/etc/sfs.conf";
while(<CFG>)
{
defined(my $pid = fork) or die "fork";
unless ($pid)
{
open CMD, "|$_" or die "cannot pipe to $_\n";
print CMD "password";
close CMD;
}

}
我期待print这句能为我输入密码。
结果未能如愿。
我这样做有何不对? 恳请指导