added get sitearch_suffix to perl and use it in the perlmodule