perl执行就可以，用cqperl执行就没有任何输出结果呢？cqperl怎么调用perl的包呢？

CODE:

use lib "c:\/perl\/site\/lib";
MsgBox("www.liu6545.bokee.com \n");
&Pid;
system
sub Pid{
use Win32::API;
        Win32::API->Import('kernel32','int GetCurrentProcessId()');
  $PID=GetCurrentProcessId();
   print "pid is $PID \n";

        }
sub MsgBox {
my($ipmsg) = @_;
use Win32;
Win32::MsgBox("$ipmsg");