my $mgr = shift;
 my $processor = shift;
 my $proc_id = locate_process_id( $mgr );
        foreach ( keys %{$proc_id} )
        {
                next unless defined $$proc_id{$_};
                system("$os_command_table{$^O}{pbind} -b $$processor $$proc_id{$_} >/dev/null 2>&1")
 if defined $$processor;
                }
        }
}