主机通过vmrun命令执行虚拟机下的perl脚本时，为什么没有生效呢

suautotest

我打算用命令行vmrun控制虚拟机，例如在宿主机上(windows）执行调用虚拟机下的perl脚本，使该脚本开始工作。但是，我在宿主机上执行命令时，明明已经生成了脚本中该生成的文件（说明已经开始执行脚本），但该文件却为空。具体代码如下：其中$Bin/xxx.sh那行命令会打印日志到test.log文件中。如果在虚拟机中直接运行该脚本是能够正常运行的，使用vmrun执行却不行。请各位帮忙分析一下原因。我已经折腾了2天了，没有结果，很郁闷。谢谢！
调用虚拟机中脚本的命令如下：
vmrun -T ws -gu user -gp pwd runProgramInGuest E:\虚拟机\Ubuntu_11.10_64\Ubuntu_11.10_64.vmx "/usr/bin/perl"  "/root/桌面/test.pl"
虚拟机里的代码(test.pl)如下：

1. 
   
2. #!/usr/bin/perl
   
3. use Thread;
   
4. use FindBin qw($Bin);
   
5. #print $Bin;
   
6. 
   
7. #由于开始某进程后,该进程不会退出，所以需要使用另一个线程来监听那个进程的结果。
   
8. my $thread=Thread->new(\&checkResult);
   
9. my $thread2=Thread->new(\&startExec,"aaa","111");
   
10. 
    
11. $thread->join();
    
12. exit 0;
    
13. $thread2->join();
    
14. exit 0;
    
15. 
    
16. sub startExec
    
17. {
    
18.         my($user,$pwd)=@_;
    
19.         #system("ls > $Bin/test.log");
    
20.         my $auth_info= system("$Bin/xxx.sh -u $user -p $pwd | tee -a $Bin/test.log");
    
21. }
    
22. 
    
23. sub checkResult
    
24. {
    
25.         my $wait_seconds=0;
    
26.         while(1)
    
27.         {
    
28.                 sleep 1;
    
29.                 $wait_seconds++;
    
30.                 if($wait_seconds >= 20)
    
31.                 {
    
32.                         my $result=`cat $Bin/test.log`;
    
33.                         if($result =~ /成功/){
    
34.                                 print "成功了!\n";
    
35.                         }else{
    
36.                        
    
37.                                 print "失败了!\n";
    
38.                         }
    
39.                         last;
    
40.                         #exit 1;
    
41.                 }
    
42.         }
    
43. }

复制代码

suautotest

有没有相关经验的前辈呢？