Update pgrp_perl.sh

changed
Merge pull request #1 from caining618/master

超哥， 我发现你有个bug. 改了下。