use TeamSite::WFsystem ;
$system = new TeamSite::WFsystem() ;
my $ar_jobs = $system->GetActiveWorkflows();
foreach my $job (@{$ar_jobs}){
  print "$job \n" ;
}