PERL library path reset
 minor fix
 minor fix