require CQSquidLoad;什么意思？

require CQSquidLoad;
my $squid=new CQSquidLoad;
my $load_status=$squid->SquidLoadStatus();
这里的 CQSquidLoad是干嘛用的，上面大概是什么意思呢？
还有
my $session_id=$session->CQInt_Id();
  my $entity_id=$entity->CQInt_Id();
  $result=$squid->StartWork($session_id,$entity_id);
这里的$session和$entity都没定义过，它怎么就来用了，而且用到 ->这个符号的话，不是前面应该
是一个方法的吗？完整代码如下，这是我在Record Types下的Record Scripts下的perl脚本
Perl code

sub Defect_UCM_WorkOn {
    my($result);
    my($param) = @_;
    # record type name is Defect
    #Get CQSquidLoad package
require CQSquidLoad;
my $squid=new CQSquidLoad;
my $load_status=$squid->SquidLoadStatus();
#Check whether CQSquidLoad package was able to load CQSquidLoad library
if($load_status==2){
     #CQSquidLoad library could not be loaded,assume ClearCase is not installed
  die "Error: ClearCase may not be installed or configured correctly.";
}
    elsif($load_status==3){
       #CQSquidLoad library loaded,but is wrong version
      die "Can not Work On this record,wrong version of ClearCase is installed.";
}
else{
       #Success,call package method to do the work
     my $session_id=$session->CQInt_Id();
  my $entity_id=$entity->CQInt_Id();
  $result=$squid->StartWork($session_id,$entity_id);
}
    return $result;
}

cqsquid is the name of the clearquest integration server - its is used by many of the integrations fromother tools to clearquest to display various cq dialogues like forms, and the associations dialogues used by clearcase for example.

CqSquidLoad is a perl interface called from CQ hooks to manage the integration. this is a private implmentation feature.